s( "\x22" "'" )
lines
extract-array
read-num
{
    w( "Why do you say, " )
    right-cons
    "?"
    itemize
    catenate #(list+list)
    "\x22"
    counter
    even
        "'"
        nip
    f2
    join
}
times #(eval)