8 lines
156 B
Text
8 lines
156 B
Text
let rec print_n = fun cur -> fun n ->
|
|
ifzero n - cur then
|
|
0
|
|
else
|
|
let x = print 0 in
|
|
print_n (cur + 1) n
|
|
in
|
|
print_n 0 10
|