H $!d s/.*// x : x s/$/@/ x H x s/@.*\(.\)/\1/ x s/.$// /./b x /1/s/^/\n/