init_glob := proc()
    global feet_per_meter, meter_per_foot;
    feet_per_meter := 3.28;
    meter_per_foot := 1.0 / feet_per_meter;
    print("feet_per_meter := ",feet_per_meter);
    print("meter_per_foot := ",meter_per_foot);
end;