toItemName out ((Entity _ itemVal):xs) =
  toItemName (out ++ (unpack $ itemName itemVal)) xs
toItemName out ((Entity _ itemVal):xs) =
  toItemName (out ++ (unpack $ itemName itemVal)) xs
toItemName out ((Entity _ itemVal):xs) =
  toItemName (out ++ (unpack $ itemName itemVal)) xs