let rec whitespace level n =
  if is_active level then
    begin
      match n with
        | 0 -> ()
        | n -> (Format.eprintf "%d " n; whitespace level (n - 1))
    end