#!/usr/bin/picolisp /usr/lib/picolisp/lib.l

(load "@lib/simul.l")  # For 'permute' function

(in NIL
   (until (eof)
      (for F (permute (split (line) " "))
         (prinl (glue " " F)) ) ) )

(bye)