ghc/CONTRIB/pphs/docs/leftindent2.hs

   1 eval :: GmState -> [GmState]
   2 eval state = state: restStates
   3              where
   4              restStates | gmFinal state = []
   5                         | otherwise = eval nextState
   6              nextState  = doAdmin (step state)