rebol[]while[a: input][if(pick a 1)= #"t"[prin"h"]print a]