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""""
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=