open Printf;;
open Scanf;;

let   feet_per_meter = 3.28;;
let   meter_per_foot = 1.0 /. feet_per_meter;;

printf "feet_per_meter = %10.6f\n" feet_per_meter ;;
printf "meter_per_foot = %10.6f\n" meter_per_foot ;;

let f x = x;;

let my_height_feet = bscanf Scanning.stdin "%f" f;;

let cvt_feet_to_meters feet =
  feet *. meter_per_foot;;

let my_height_meters = cvt_feet_to_meters my_height_feet;;

printf "my_height_feet = %10.6f\n" my_height_feet;;      

printf "my_height_meters A = %10.6f\n" my_height_meters;;     

printf "my_height_meters B = %10.6f\n" (cvt_feet_to_meters my_height_feet);;