blocks =: monad define           NB. 3 : 0
  body  =: 1!:1<y
  lines =: LF chopstring body
  NB. pairs =: I. (> cblk_tilde each lines) + (>)
  pairs =: I. (> cblk_btick each lines) bitor (> cblk_tilde each lines)
  bump  =: 2|#pairs
  (bump+#pairs){.!.(#lines) pairs
  _2 [\ pairs
)