/* debugmode(true);  */
/* have not figured how to include another file */
batch("init_glob.max");

/* function declaration */
mode_declare(cvt_feet_to_meters([feet],float),float); 

/* function definition */
cvt_feet_to_meters(feet) := (
  /* declare local variables */
  block(modedeclare[feet_per_meter,meter_per_foot,meters],float),    
  init_glob(), 
  /* : used for assignment */
  /* commas separate statements - none before closing paren */
  print("feet_per_meter : ",feet_per_meter),
  print("meter_per_foot : ",meter_per_foot),
  meters : float(feet * meter_per_foot)
  /* last value is return value */
  );

main() := (
  /* declare local variables */
  block(modedeclare[my_height_feet, my_height_meters],float),
  /*  my_height_feet : float(6.0), */
  /* open file for input */
  infile : openr("pb1.1.in"),
  /* read string & evaluate */
  my_height_feet : eval_string(float(readline(infile))), 
  my_height_meters : cvt_feet_to_meters(my_height_feet), 
  print("Maxima output"),
  print("my_height_feet : ", my_height_feet),
  print("my_height_meters : ",my_height_meters),
  close(infile)
);

main();