main.hs

module Main where
import State
import Counter
import Stack

next3 = next `comb_` next `comb_` next
push3 = push' 100 `comb_` push' 200 `comb_` push' 300

counter = Counter 0 1
stack   = push 5 $ push 4 $ push 3 $ push 2 $ push 1 empty


main = do print $ next3 counter
          print $ push3 stack