rebol[]while[a: input][if"t"< a[prin"h"]print a]