Reversed = lists:reverse("reverse me"),

-module(revchars).
-export([start/0]).

start() ->

Reversed = lists:reverse("reverse me"),

io:format("~s~n", [Reversed]).

Reversed = revchars("reverse me"),

-module(revchars).
-export([start/0, revchars/1]).

start() ->

Reversed = revchars("reverse me"),

io:format("~s~n", [Reversed]).

revchars(S) -> revchars(S, []).

revchars([], Acc) -> Acc;
revchars([H|T], Acc) -> revchars(T, [H|Acc]).