boxInteger :: Int -> GMState -> GMState
boxInteger n state
    = putStack (a: getStack state) (putHeap h' state)
    where (h', a) = hAlloc (getHeap state) (NNum n)
boxInteger :: Int -> GMState -> GMState
boxInteger n state
    = putStack (a: getStack state) (putHeap h' state)
    where (h', a) = hAlloc (getHeap state) (NNum n)
boxInteger n state
    = putStack (a: getStack state) (putHeap h' state)
    where (h', a) = hAlloc (getHeap state) (NNum n)