program-id.y.data division.working-storage section. 1 n pic 9. 1 s pic x(99). procedure division.a.if'"'=s(1:1)add -1to n.if s>="!"or n=1 display s(1:1)no advancing.move s(2:)to s if s>""go a.accept s if s<>"}"go a.display s.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).