10 lines
192 B
Text
10 lines
192 B
Text
|
fun f (x) =
|
||
|
|
if (x >? 0) then {
|
||
|
|
if (x >? 1) then { "OK" }
|
||
|
|
else { "KO" }
|
||
|
|
} else { "KO" }
|
||
|
|
|
||
|
|
let test =
|
||
|
|
print_string ("This test is ");
|
||
|
|
print_string (f (33));
|
||
|
|
print_string (".\n")
|