insertion sort

an insertion sort by erlang