cleanup

beer.hs

@@ -11,8 +11,10 @@ conk [] _ = id
 lyrc'b'o :: Integer -> ((Integer -> String) -> String)
 lyrc'b'o x
    | (x == 0) = (\_ -> "no more bottles")
-   | (x == 1) = (\f -> conk [(f x), "bottle"] (' ':) $ [])
-   | otherwise = (\f -> conk [(f x), "bottles"] (' ':) $ [])
+   | (x == 1) = cenk "bottle" x
+   | otherwise = cenk "bottles" x
+   where
+      cenk s x = (\f -> conk [(f x), s] (' ':) $ [])
 
 lyrc's'o :: String -> ((Integer -> String) -> String)
 lyrc's'o s = (\_ -> s)