1([){(%stdin)(r)file read{10 eq{1 add}if[}if}def[=