forth sorters from rosetta code