REBOL[]loop 14[print uppercase ask""print lowercase ask""]