quick sort in erlang: amazing