bubble-sort.fth -- simple bubble sort