Rewrite RSORT to use COMPOSE