let prerr_blocks_stack () = prerr_endline "Block stack is: "; List.iter (fun (tok,vext,vin) -> prerr_endline (Printf.sprintf "%s (%d, %+d)" (string_of_token tok) vext vin)) !blocks