main = print test
 
k c b(('[':m:_):i)|m<'C'=k c[q|b>"",q<-init b]i|m<'D'=k b b i|m<'P'=k c""i|1<3=k c(b++c)i
k c b(s:i)=k c(b++s)i
k c b[]=b
f=k""""
 
test=and[
	f["H", "e", "l", "l", "o"]=="Hello",
	f["H", "e", "l", "l", "o", " ", "[C]", "[P]"]=="Hello Hello ",
	f["[D]", "D", "[B]"]=="",
	f[""]=="",
	f["e", "[C]", "[B]", "I", " ", "l", "i", "k", "[P]", " ", "b", "[P]", "[P]", "s", "!"]=="I like bees!",
	f["N", "[P]"]=="N",
	f["#", "5", "0", "K", "0", "0", "1", "[D]", "#", "n", "o", "t"]=="#not",
	f["s", "u", "d", "[B]", "p", "[C]", "[D]", "I", " " , "h", "a", "v", "e", " ", "[P]", "p", "e", "r", "!"]=="I have supper!"]

bWFpbiA9IHByaW50IHRlc3QKCmsgYyBiKCgnWyc6bTpfKTppKXxtPCdDJz1rIGNbcXxiPiIiLHE8LWluaXQgYl1pfG08J0QnPWsgYiBiIGl8bTwnUCc9ayBjIiJpfDE8Mz1rIGMoYisrYylpCmsgYyBiKHM6aSk9ayBjKGIrK3MpaQprIGMgYltdPWIKZj1rIiIiIgoKdGVzdD1hbmRbCglmWyJIIiwgImUiLCAibCIsICJsIiwgIm8iXT09IkhlbGxvIiwKCWZbIkgiLCAiZSIsICJsIiwgImwiLCAibyIsICIgIiwgIltDXSIsICJbUF0iXT09IkhlbGxvIEhlbGxvICIsCglmWyJbRF0iLCAiRCIsICJbQl0iXT09IiIsCglmWyIiXT09IiIsCglmWyJlIiwgIltDXSIsICJbQl0iLCAiSSIsICIgIiwgImwiLCAiaSIsICJrIiwgIltQXSIsICIgIiwgImIiLCAiW1BdIiwgIltQXSIsICJzIiwgIiEiXT09IkkgbGlrZSBiZWVzISIsCglmWyJOIiwgIltQXSJdPT0iTiIsCglmWyIjIiwgIjUiLCAiMCIsICJLIiwgIjAiLCAiMCIsICIxIiwgIltEXSIsICIjIiwgIm4iLCAibyIsICJ0Il09PSIjbm90IiwKCWZbInMiLCAidSIsICJkIiwgIltCXSIsICJwIiwgIltDXSIsICJbRF0iLCAiSSIsICIgIiAsICJoIiwgImEiLCAidiIsICJlIiwgIiAiLCAiW1BdIiwgInAiLCAiZSIsICJyIiwgIiEiXT09IkkgaGF2ZSBzdXBwZXIhIl0=