{i=getline$6;for($0=$0;++i<6;)if($i$(i+5)==j=$1$6)print i-1,j}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page