|
|
@@ -33,7 +33,7 @@ lyrc'b :: Integer -> ((Integer -> String) -> String) |
|
|
|
lyrc'b x = shic x lyrc'b'o "of beer" |
|
|
|
|
|
|
|
lyrc'w :: Integer -> ((Integer -> String) -> String) |
|
|
|
lyrc'w x = shic x lyrc'b "of beer" |
|
|
|
lyrc'w x = shic x lyrc'b "on the wall" |
|
|
|
|
|
|
|
lyrc :: Integer -> [((Integer -> String) -> String)] |
|
|
|
lyrc x = [ |
|
|
|