evalOneStep p@ProgramState { programStack = ((Native n):prog)}  = evalNativeFunc n (p {programStack = prog})
evalOneStep p@ProgramState { programStack = ((Native n):prog)}  = evalNativeFunc n (p {programStack = prog})
evalOneStep p@ProgramState { programStack = ((Native n):prog)}  = evalNativeFunc n (p {programStack = prog})