[0 1002{(%stdin)(r)file read{3 copy or eq{( )}{(#)}ifelse print}if}repeat/# =