* Refal is "Recursive functions algorithmic language" * and is a pattern matching programming language. * This entry uses both recursion and pattern matching * capabilities of refal. $ENTRY Go { = ;}; Sing { s.N = >; }; Beer { 0 = "No more bottles of beer"; 1 = "One bottle of beer"; s.N = s.N "bottles of beer"; }; Verse { 0 = ""; s.N = "on the wall.\n" "Take one down, pass it around,\n" > "on the wall\n\n" >; };