rebol[]a: read/lines %../fd/0 while[a/1/1][forall a[prin take/last a/1]print""]