Simple Erlang URL unshortener

unshort.erl

-module(unshort).
-export([unshort/1]).

unshort(URL) -> unshort(URL, 32).
unshort(URL, TTL) when TTL > 0 ->
	{ok, {_, Headers, _}} = httpc:request(head, {URL, []}, [{autoredirect, false}], []),
	case proplists:get_value("location", Headers) of
		undefined -> URL;
		Location -> unshort(Location, TTL - 1)
	end.