showState :: State -> String
showState (counter,items) =
  unlines (show counter : map showItem items)
showState :: State -> String
showState (counter,items) =
  unlines (show counter : map showItem items)
showState (counter,items) =
  unlines (show counter : map showItem items)