From 473e1bdfc8bb879ef8a168ad96a1289f5790c6f4 Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Tue, 12 Mar 2019 13:55:58 +1300
Subject: [PATCH] cleanup

---
 beer.hs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/beer.hs b/beer.hs
index f14aba3..0aed8ce 100644
--- a/beer.hs
+++ b/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 = [