Paste: Reads text and greets

Author: Rayne
Mode: factor
Date: Sat, 14 Mar 2009 06:53:07
Plain Text | 
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 ;

New Annotation

Summary:
Author:
Mode:
Body: