module Main where

import Control.Monad.State

last'
  | [a]    <- get = a
  | (x:xs) <- get = evalState last' xs

main = do
  print $ evalState last' [1..10]