/* comment */
my_height_meters_pred(My_height_meters) :-
    write('SWI-Prolog output\n'),
    init_glob(Feet_per_meter, Meter_per_foot),
    write('Feet_per_meter = '),
    write(Feet_per_meter), nl,
    write('Meter_per_foot = '),
    write(Meter_per_foot),nl,
    read(My_height_feet),
    My_height_meters is My_height_feet * Meter_per_foot,
    write('My_height_feet = '),
    write(My_height_feet),nl,
    write('My_height_Meters = '),
    write(My_height_meters),nl.