(let ((tiles '([1p] [1p] [1p] [2p] [3p] [4p] [5p] [6p] [7p] [8p] [9p] [9p] [9p])))
  (dolist (winning-tile '([1p] [2p] [3p] [4p] [5p] [6p] [7p] [8p] [9p]))
    (print (rh::%find-orderings tiles winning-tile :tsumo '()))))


((#<ANKOU 111p> (#<ANJUN 789p> #<ANJUN 456p> #<ANJUN 123p> #<ANTOI 99p>))) 
((#<ANTOI 22p> (#<ANJUN 678p> #<ANJUN 345p> #<ANKOU 999p> #<ANKOU 111p>))) 
((#<ANJUN 345p> (#<ANJUN 678p> #<ANJUN 123p> #<ANTOI 11p> #<ANKOU 999p>))) 
((#<ANJUN 456p> (#<ANJUN 789p> #<ANJUN 234p> #<ANTOI 99p> #<ANKOU 111p>))) 
((#<ANTOI 55p> (#<ANJUN 678p> #<ANJUN 234p> #<ANKOU 999p> #<ANKOU 111p>))) 
((#<ANJUN 678p> (#<ANJUN 456p> #<ANJUN 123p> #<ANTOI 11p> #<ANKOU 999p>))) 
((#<ANJUN 789p> (#<ANJUN 567p> #<ANJUN 234p> #<ANTOI 99p> #<ANKOU 111p>))) 
((#<ANTOI 88p> (#<ANJUN 567p> #<ANJUN 234p> #<ANKOU 999p> #<ANKOU 111p>))) 
((#<ANKOU 999p> (#<ANJUN 789p> #<ANJUN 456p> #<ANJUN 123p> #<ANTOI 11p>)))