|
|
@@ -23,11 +23,17 @@ lyrc's = ( |
|
|
|
lyrc's'o "pass it around" |
|
|
|
) |
|
|
|
|
|
|
|
shic :: Integer -> |
|
|
|
(Integer -> ((Integer -> String) -> String)) -> |
|
|
|
String -> |
|
|
|
((Integer -> String) -> String) |
|
|
|
shic x l w = (\f -> conk [l x $ f, w] (' ':) $[]) |
|
|
|
|
|
|
|
lyrc'b :: Integer -> ((Integer -> String) -> String) |
|
|
|
lyrc'b x = (\f -> conk [lyrc'b'o x $ f, "of beer"] (' ':) $[]) |
|
|
|
lyrc'b x = shic x lyrc'b'o "of beer" |
|
|
|
|
|
|
|
lyrc'w :: Integer -> ((Integer -> String) -> String) |
|
|
|
lyrc'w x = (\f -> conk [lyrc'b x $ f, "on the wall"] (' ':) $[]) |
|
|
|
lyrc'w x = shic x lyrc'b "of beer" |
|
|
|
|
|
|
|
lyrc :: Integer -> [((Integer -> String) -> String)] |
|
|
|
lyrc x = [ |
|
|
|