yatta.seml

let double n = n *. 2.0 ;;

print_newline() ;;

let rec f n = if n == 0 then () else f (n - 1); print_int n; print_newline();;

f 10;;

print_float (double 3.14);;

print_newline();;

let rec sum n = if n == 0 then 0 else n + sum (n-1);;

print_int (sum 10);;