rot13-demo ( -- )

Vocabulary

rot13

Inputs

None

Outputs

None

Definition

USING: io kernel ;

IN: rot13

: rot13-demo ( -- )
    "Please enter a string:" print flush readln [
        "Your string: " write dup print "Rot13:       " write
        rot13 print
    ] when* ;