get;say reduce *+*+>1,-<<sort -<<get.words