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


((#<ANTOI 77p> (#<ANTOI 66p> #<ANTOI 55p> #<ANTOI 44p> #<ANTOI 33p> #<ANTOI 22p> #<ANTOI 11p>))
 (#<ANTOI 77p> (#<ANJUN 456p> #<ANJUN 456p> #<ANTOI 33p> #<ANTOI 22p> #<ANTOI 11p>))
 (#<ANTOI 77p> (#<ANJUN 345p> #<ANJUN 345p> #<ANTOI 66p> #<ANTOI 22p> #<ANTOI 11p>))
 (#<ANTOI 77p> (#<ANJUN 234p> #<ANJUN 234p> #<ANTOI 66p> #<ANTOI 55p> #<ANTOI 11p>))
 (#<ANTOI 77p> (#<ANJUN 123p> #<ANJUN 123p> #<ANTOI 66p> #<ANTOI 55p> #<ANTOI 44p>))
 (#<ANTOI 77p> (#<ANJUN 456p> #<ANJUN 456p> #<ANJUN 123p> #<ANJUN 123p>))
 (#<ANJUN 567p> (#<ANJUN 567p> #<ANTOI 44p> #<ANTOI 33p> #<ANTOI 22p> #<ANTOI 11p>))
 (#<ANJUN 567p> (#<ANJUN 567p> #<ANJUN 234p> #<ANJUN 234p> #<ANTOI 11p>))
 (#<ANJUN 567p> (#<ANJUN 567p> #<ANJUN 123p> #<ANJUN 123p> #<ANTOI 44p>)))