let () = 
  let ast : Ml22d.func list = input_value (open_in "raytrace.ast") in
  List.iter 
    (fun f -> 
       Printf.eprintf "%s\n" f.Ml22d.fname;
       let oc = open_out ("ray/" ^ f.Ml22d.fname ^ ".gen") in
       Ml22d.draw_fun oc f;
       close_out oc
    ) ast