refactor
refactor
add %PARSE-INTEGER function
refactor