let rec eval_list = function
  | [] -> ()
  | xp::l -> print_eval xp ; eval_list l