let last_and_associated_indent () = try let (t,vext,vin) = List.find (fun (t,_,_) -> t=LET or t=MODULE or t=CLASS or t=TYPE) !blocks in Some (vext,vin) with Not_found -> None