evalNativeFunc Define p@ProgramState {
    dataStack = ((Symbol symbolName):definition:rest),
    dict = oldDict
    } = let newDict = Map.insert symbolName definition oldDict in Right $ p {dataStack = rest, dict = newDict}
evalNativeFunc Define p@ProgramState {
    dataStack = ((Symbol symbolName):definition:rest),
    dict = oldDict
    } = let newDict = Map.insert symbolName definition oldDict in Right $ p {dataStack = rest, dict = newDict}
evalNativeFunc Define p@ProgramState {
    dataStack = ((Symbol symbolName):definition:rest),
    dict = oldDict
    } = let newDict = Map.insert symbolName definition oldDict in Right $ p {dataStack = rest, dict = newDict}