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