module HW where


import Control.Monad.State hiding (when)



tick :: Int -> State String ()
tick _= do
        -- get last intermediate valueP
          n <- get
          put $ show n
          return ()



test :: String -> String
test = execState (tick 0)


-- y :: State Int Int
-- y = state $ \x -> (x,x+1)