<>;CORE::say$_+1&2?-1:substr 1001x25,-$_ for<>