but a few bugs exists.

p has side effect of modifying @n, so for example in /e/ part you must call it only twice not four times.

in last expression correct logic is w+($_=getc)?ord:-1if/i/