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