toItemName :: [Char] -> [Entity Item] -> [Char]
toItemName out ((Entity _ itemVal):x:xs) =
  toItemName (out ++ (unpack $ itemName itemVal) ++ ", ") (x:xs)
toItemName :: [Char] -> [Entity Item] -> [Char]
toItemName out ((Entity _ itemVal):x:xs) =
  toItemName (out ++ (unpack $ itemName itemVal) ++ ", ") (x:xs)
toItemName out ((Entity _ itemVal):x:xs) =
  toItemName (out ++ (unpack $ itemName itemVal) ++ ", ") (x:xs)