cleanup

beer.hs

@@ -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 = [