9 lines
138 B
Text
9 lines
138 B
Text
|
doWhile source
|
||
|
|
0 -> # !
|
||
|
|
otherwise val is $ + 1;
|
||
|
|
$val !
|
||
|
|
$val -> if <|?($ mod 6 matches <~|=0>)> -> # !
|
||
|
|
end doWhile
|
||
|
|
|
||
|
|
$doWhile !
|