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