actual fix

beer.hs

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