init_glob := 'readlib( 'init_glob',`init_glob.mxt`)';

# define conversion function
cvt_feet_to_meters := proc(feet)
global feet_per_meter, meter_per_foot;
local meters;
    
    meters := feet * meter_per_foot;
    return meters;
end;

# define main function
main := proc()
local my_height_feet, my_height_meters;
    init_glob();
# read string from file "pb01.in"
    readline("pb01.in");
# convert string (last value) to float.
    my_height_feet := sscanf(%,%f);
    my_height_meters := cvt_feet_to_meters(my_height_feet); 
    print("Maple output");
    print("my_height_feet := ", my_height_feet);
    print("my_height_meters := ",my_height_meters);
end;

# call main
main();