2019-09-22 22:25:05 +03:00
|
|
|
fun f (l) {
|
|
|
|
|
case l of
|
|
|
|
|
{} -> skip
|
|
|
|
|
| h : tl -> h (); f (tl)
|
|
|
|
|
esac
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fun a () {
|
|
|
|
|
write (0)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fun b () {
|
|
|
|
|
write (1)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
fun c () {
|
|
|
|
|
write (2)
|
|
|
|
|
}
|
|
|
|
|
|
2021-01-31 22:25:31 +03:00
|
|
|
var x = read ();
|
2019-10-16 01:13:52 +03:00
|
|
|
|
2019-09-22 22:25:05 +03:00
|
|
|
f ({a, b, c})
|
