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