grep$%$_<1,@;or print$;[($;[@;]=$.$/)-$;[-2]-1];$++<$$&&do$0