s( "\x22" "'" )
lines
extract-array
read-num
range
m:
    ( "Why do you say, " "\x22'\x22" )
    rot
    get
    rot
    over
    "?"
    wrap-stack