gistfile1.txt

consult_str(eof, Acc) ->
    lists:reverse(Acc);
consult_str(B, Acc) ->
    case erl_scan:tokens([], B, 0) of
        {done, Result, Remaining} ->
            case Result of
                {ok, Tokens, _} ->
                    {ok, Term} = erl_parse:parse_term(Tokens),
                    consult_str(Remaining, [Term | Acc]);
                {eof, _} ->
                    consult_str(eof, Acc);
                {error, Info, _} ->
                    {error, Info}
            end;
        {more, _Cont} ->
            consult_str(eof, Acc)
    end.