updated StackSortPerm.hs