%% load file
load("glob.lf")?

%% write
write("WildLIFE output\n")?

my_height_meters(My_height_meters) :-
    write("feet_per_meter = ", feet_per_meter),nl,
    write("meter_per_foot = ", meter_per_foot),nl,
    %% read
    read(My_height_feet),
    My_height_meters = My_height_feet * meter_per_foot,
    write("My_height_feet = ",My_height_feet),nl,
    write("My_height_Meters = ",My_height_meters),nl.