USING: io math.parser ; IN: testing : ask-name ( -- ) "What is your name?" print ; : read-name ( -- str ) readln ; : print-greet ( n -- ) "Why, hello there you factoring fool " write write "!" print ; : letsjustcallthismain ( -- ) ask-name read-name print-greet ;