1let rec tak x y z = 2 if x > y then tak (tak (x-1) y z) (tak (y-1) z x) (tak (z-1) x y) 3 else z 4 5let rec repeat n = 6 if n <= 0 then 0 else tak 18 12 6 + repeat(n-1) 7 8let _ = print_int (repeat 200); print_newline(); exit 0 9