printer' :: Node -> GMState -> GMState
printer' (NNum n) s = putOutput o s'
    where 
    o = (getOutput s) ++ show n
    s' = (putStack addrs s)
    (_ : addrs) = getStack s
printer' :: Node -> GMState -> GMState
printer' (NNum n) s = putOutput o s'
    where 
    o = (getOutput s) ++ show n
    s' = (putStack addrs s)
    (_ : addrs) = getStack s
printer' (NNum n) s = putOutput o s'
    where 
    o = (getOutput s) ++ show n
    s' = (putStack addrs s)
    (_ : addrs) = getStack s