let print_variable_declaration n ( c, t, s, i ) =
    (indent n)
    ^(print_local_storage_class c)^" "^(print_c_type t)^"\t"^s
    ^(match i with
        Some i -> print_ctt_initializer i
      |        None -> "")
    ^";\n"