NetBSD/bin/ed/test/s2.ed

#!/bin/sh -
../ed - <<\EOT
r \s2.d
,s/./(&)/3
s/$/00
2s//%/g
s/^l
w \s2.o
EOT