1500{(
)(%stdin)(r)file read{10 ne{(0)}if print}if}repeat