let newstack_pointer (n: int) = "\tint stackptr;\n stackptr = baseptr;\n\tstackptr += " ^ (string_of_int (n)) ^ ";\n"