rxrplc 1 :0;._2 stdin load'regex'
wd('1?x(.1)?';'x')u('^ \+?|x.0';'')u,(*@|#(' +-'{~0,.*),.":@|,.#('x^',":)@-#\)(%.#\^/#-#\)x:_".y
)