on *:INPUT:#: {
if ($regex($1,^[^/]+.*,$)) {
if ($fline(#,$+(*,$left($1,-1),*),1,1)) {
/say 13,1«9,1±11,1[ 9,1 $line(#,$v1,1)11,1 ]9,1±13,1» 13,1«9,1±11,1[ 9,1 $2- 11,1 ]9,1±13,1» | halt }
if (/* !iswm $1) { /say 13,1«9,1±11,1[ 9,1 $+($chr(3),9,$1-) 11,1 ]9,1±13,1» | halt }
}
}