todo

beer.hs

@@ -46,6 +46,8 @@ thap f x = x f
 thop :: (Integer -> String) -> [((Integer -> String) -> String)] -> [String]
 thop f l = map (thap f) l
 
+--TO DO
+--edit this function to convert digits to english words
 tran :: Integer -> String
 tran = show