let
last_block_indent () =
match
!blocks
with
(_,n,off) :: _
->
(n, off)
|
_
->
(0, 0)