99 bottles of beer: Difference between revisions

m
(Fix ordering)
Line 1,452:
:import std/String .
 
main [y [[=?0 case-end case-rec]] (+99)]
case-rec n ++ t1 ++ n ++ t2 ++ t3 ++ n ++ t1 ++ "\n" ++ (1 --0)
rec =?0 case-end case-rec
n number→string 0
case-rec n ++ t1 ++ n ++ t2 ++ t3 ++ n ++ t1 ++ "\n" ++ (1 --0)
t1 " bottles of beer on the wall\n"
n number→string 0
t1t2 " bottles of beer on the wall\n"
t2t3 "Take bottlesone ofdown, beerpass it around\n"
case-end empty
t3 "Take one down, pass it around\n"
case-end empty
</syntaxhighlight>
 
55

edits