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