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