:l /./ !{ x p Q } s/.// x :a /9$/ { /|/ !s/^/|/ s/\(.*\)9/0\1/ b a } s/8$/9/ s/7$/8/ s/6$/7/ s/5$/6/ s/4$/5/ s/3$/4/ s/2$/3/ s/1$/2/ s/0$/1/ s/|$/|1/ s/^$/1/ s/\(.*\)|\(.*\)/\2\1/ x b l