>>53
[code]"bottles" < main
{
main ->
stef(;)
staðvær i,b
stofn
fyrir( i := 100; i > 1; i := i-1) lykkja
bottles(;i-1),
skrifastreng(;" on the wall, "),
bottles(;i-1),
skrifastreng(;",\ntake one down, pass it around, \n"),
bottles(;i-2),
skrifastreng(;" on the wall.\n"),
lykkjulok,
stofnlok
}
*
{
bottles ->
stef(;n)
stofn
val n úr
kostur 0 þá
skrifastreng(;"no more bottles"),
kostur 1 þá
skrifastreng(;"1 bottle of beer"),
annars
skrifa(;n),
skrifastreng(;" bottles of beer"),
vallok
stofnlok
}
*
"GRUNNUR"
;[.code]