Erlang: extract *.ini file from *.tgx package and parse it in 12 LOC

gistfile1.erl

parse_ini(Filename) ->
    Str = string:tokens(os:cmd(["tar JxOf ", Filename, " settings.conf"]), "\n"),
    parse_ini(Str, default, []).
parse_ini([], _Group, Res) -> Res;
parse_ini([Head|Tail], Group, Res) ->
    [F|R] = Str = string:strip(Head),
    case F of
        $# -> parse_ini(Tail, Group, Res);
        $[ -> parse_ini(Tail, string:strip(R, both, $]), Res);
        _ -> [K|V] = string:tokens(Str, "="),
             parse_ini(Tail, Group, [{{Group, K}, string:join(V,"=")}|Res])
    end.