Лучший способ распечатать таблицу Mnesia

Я пробовал этот фрагмент кода:

print_next(Current) ->
    case mnesia:dirty_next(muppet, Current) of
        '$end_of_table' ->
            io:format("~n", []),
            ok;
        Next ->
            [Muppet] = mnesia:dirty_read({muppet, Next}),
            io:format("~p~n", [Muppet]),
            print_next(Next),
            ok
    end.

print() ->
    case mnesia:dirty_first(muppet) of
        '$end_of_table' ->
            ok;
        First ->
            [Muppet] = mnesia:dirty_read({muppet, First}),
            io:format("~p~n", [Muppet]),
            print_next(First),
            ok
    end.

Но он такой длинный. Также я могу использовать dirty_all_keys , а затем перебирать список ключей, но я хочу знать, есть ли лучший способ распечатать содержимое таблицы Mnesia.