#!/bin/bash
sed '
:gg
:cc
s/begin\(#*\)e$/begin\1#/
t cc
s/begin\(#*\)en$/begin\1##/
t cc
s/begin\(#*\)[^#e\n]/begin\1#/
t cc
s/begin\(#*\)e\([^#n\n]\)/begin\1#\2/
t cc
s/begin\(#*\)en\([^#d\n]\)/begin\1##\2/
t cc
/begin#*$/ {
  :dd
  N
  :ee
  s/\n\(#*\)e$/\n\1#/
  t ee
  s/\n\(#*\)en$/\n\1##/
  t ee
  s/\n\(#*\)[^e#\n]/\n\1#/
  t ee
  s/\n\(#*\)e\([^n#\n]\)/\n\1#\2/
  t ee
  s/\n\(#*\)en\([^d#\n]\)/\n\1##\2/
  t ee
  /\n[^\n]*end[^\n]*$/ !{
    b dd
  }
  P
  D
}
'
#Michał Nowak