h s/.*+/:&:/ s/$/@/ : s/:6/~:0/ s/+:24/+:00/ s/~/<<123456789~01>/ s/\(.\)<.*\1\(\W*.\).*>/\2/ t s/-/<10-987654321>/ t s/@/~@/ s/+/-+/ s/:00-\(+.*\)\(:..\)~@/\1@\2/ /^-/!b H g s/\n...../=/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).