(use-modules (ice-9 streams))
 
; Narayana algorithm, yoba.
(define (permutations first-perm)
  (define (next-permutation perm)
    (define (split-descending-part items)
      (if (or (null? items) (null? (cdr items)))
          #f
          (let ((parts (split-descending-part (cdr items))))
            (cond (parts (cons (cons (car items) (car parts))
                               (cdr parts)))
                  ((< (car items) (cadr items))
                   (list (list (car items))
                         (car items)
                         (cdr items)))
                  (else #f)))))
    (define (inject-and-reverse pivot items)
      (define (iter new-pivot items tail)
        (let ((current-value (car items)))
          (if (and (not new-pivot)
                   (or (null? (cdr items))
                       (< (cadr items) pivot)))
              (begin
                (set! new-pivot (car items))
                (set! current-value pivot)))
          (let ((new-tail (cons current-value tail)))
            (if (null? (cdr items))
                (cons new-pivot new-tail)
                (iter new-pivot (cdr items) new-tail)))))
      (iter #f items '()))
    (define (combine prefix new-pivot tail)
      (if (null? (cdr prefix))
          (cons new-pivot tail)
          (cons (car prefix)
                (combine (cdr prefix) new-pivot tail))))
    (let ((parts (split-descending-part perm)))
      (if (not parts)
          (reverse perm)
          (let* ((prefix (car parts))
                 (pivot (cadr parts))
                 (tail (caddr parts))
                 (injection (inject-and-reverse pivot tail))
                 (new-pivot (car injection))
                 (new-tail (cdr injection)))
           (combine prefix new-pivot new-tail)))))
  (make-stream
  	(lambda (perm)
  	  (cons perm (next-permutation perm)))
    first-perm))
 
(define (range begin end)
  (if (< begin end)
    (cons begin (range (+ begin 1) end))
    '()))
 
(define (method-ringing size length player1 player2)
  (define (print-permutations count perms)
    (if (not (zero? count))
      (let ((perm (stream-car perms)))
        (for-each
          (lambda (x)
            (display
              (cond ((= x player1) "*")
                    ((= x player2) "#")
                    (else " "))))
          perm)
        (newline)
        (print-permutations (- count 1) (stream-cdr perms)))))
  (print-permutations length (permutations (range 1 (+ size 1)))))
 
(let* ((size (read))
       (length (read)))
  (method-ringing size length 2 size))

KHVzZS1tb2R1bGVzIChpY2UtOSBzdHJlYW1zKSkKCjsgTmFyYXlhbmEgYWxnb3JpdGhtLCB5b2JhLgooZGVmaW5lIChwZXJtdXRhdGlvbnMgZmlyc3QtcGVybSkKICAoZGVmaW5lIChuZXh0LXBlcm11dGF0aW9uIHBlcm0pCiAgICAoZGVmaW5lIChzcGxpdC1kZXNjZW5kaW5nLXBhcnQgaXRlbXMpCiAgICAgIChpZiAob3IgKG51bGw/IGl0ZW1zKSAobnVsbD8gKGNkciBpdGVtcykpKQogICAgICAgICAgI2YKICAgICAgICAgIChsZXQgKChwYXJ0cyAoc3BsaXQtZGVzY2VuZGluZy1wYXJ0IChjZHIgaXRlbXMpKSkpCiAgICAgICAgICAgIChjb25kIChwYXJ0cyAoY29ucyAoY29ucyAoY2FyIGl0ZW1zKSAoY2FyIHBhcnRzKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjZHIgcGFydHMpKSkKICAgICAgICAgICAgICAgICAgKCg8IChjYXIgaXRlbXMpIChjYWRyIGl0ZW1zKSkKICAgICAgICAgICAgICAgICAgIChsaXN0IChsaXN0IChjYXIgaXRlbXMpKQogICAgICAgICAgICAgICAgICAgICAgICAgKGNhciBpdGVtcykKICAgICAgICAgICAgICAgICAgICAgICAgIChjZHIgaXRlbXMpKSkKICAgICAgICAgICAgICAgICAgKGVsc2UgI2YpKSkpKQogICAgKGRlZmluZSAoaW5qZWN0LWFuZC1yZXZlcnNlIHBpdm90IGl0ZW1zKQogICAgICAoZGVmaW5lIChpdGVyIG5ldy1waXZvdCBpdGVtcyB0YWlsKQogICAgICAgIChsZXQgKChjdXJyZW50LXZhbHVlIChjYXIgaXRlbXMpKSkKICAgICAgICAgIChpZiAoYW5kIChub3QgbmV3LXBpdm90KQogICAgICAgICAgICAgICAgICAgKG9yIChudWxsPyAoY2RyIGl0ZW1zKSkKICAgICAgICAgICAgICAgICAgICAgICAoPCAoY2FkciBpdGVtcykgcGl2b3QpKSkKICAgICAgICAgICAgICAoYmVnaW4KICAgICAgICAgICAgICAgIChzZXQhIG5ldy1waXZvdCAoY2FyIGl0ZW1zKSkKICAgICAgICAgICAgICAgIChzZXQhIGN1cnJlbnQtdmFsdWUgcGl2b3QpKSkKICAgICAgICAgIChsZXQgKChuZXctdGFpbCAoY29ucyBjdXJyZW50LXZhbHVlIHRhaWwpKSkKICAgICAgICAgICAgKGlmIChudWxsPyAoY2RyIGl0ZW1zKSkKICAgICAgICAgICAgICAgIChjb25zIG5ldy1waXZvdCBuZXctdGFpbCkKICAgICAgICAgICAgICAgIChpdGVyIG5ldy1waXZvdCAoY2RyIGl0ZW1zKSBuZXctdGFpbCkpKSkpCiAgICAgIChpdGVyICNmIGl0ZW1zICcoKSkpCiAgICAoZGVmaW5lIChjb21iaW5lIHByZWZpeCBuZXctcGl2b3QgdGFpbCkKICAgICAgKGlmIChudWxsPyAoY2RyIHByZWZpeCkpCiAgICAgICAgICAoY29ucyBuZXctcGl2b3QgdGFpbCkKICAgICAgICAgIChjb25zIChjYXIgcHJlZml4KQogICAgICAgICAgICAgICAgKGNvbWJpbmUgKGNkciBwcmVmaXgpIG5ldy1waXZvdCB0YWlsKSkpKQogICAgKGxldCAoKHBhcnRzIChzcGxpdC1kZXNjZW5kaW5nLXBhcnQgcGVybSkpKQogICAgICAoaWYgKG5vdCBwYXJ0cykKICAgICAgICAgIChyZXZlcnNlIHBlcm0pCiAgICAgICAgICAobGV0KiAoKHByZWZpeCAoY2FyIHBhcnRzKSkKICAgICAgICAgICAgICAgICAocGl2b3QgKGNhZHIgcGFydHMpKQogICAgICAgICAgICAgICAgICh0YWlsIChjYWRkciBwYXJ0cykpCiAgICAgICAgICAgICAgICAgKGluamVjdGlvbiAoaW5qZWN0LWFuZC1yZXZlcnNlIHBpdm90IHRhaWwpKQogICAgICAgICAgICAgICAgIChuZXctcGl2b3QgKGNhciBpbmplY3Rpb24pKQogICAgICAgICAgICAgICAgIChuZXctdGFpbCAoY2RyIGluamVjdGlvbikpKQogICAgICAgICAgIChjb21iaW5lIHByZWZpeCBuZXctcGl2b3QgbmV3LXRhaWwpKSkpKQogIChtYWtlLXN0cmVhbQogIAkobGFtYmRhIChwZXJtKQogIAkgIChjb25zIHBlcm0gKG5leHQtcGVybXV0YXRpb24gcGVybSkpKQogICAgZmlyc3QtcGVybSkpCgooZGVmaW5lIChyYW5nZSBiZWdpbiBlbmQpCiAgKGlmICg8IGJlZ2luIGVuZCkKICAgIChjb25zIGJlZ2luIChyYW5nZSAoKyBiZWdpbiAxKSBlbmQpKQogICAgJygpKSkKCihkZWZpbmUgKG1ldGhvZC1yaW5naW5nIHNpemUgbGVuZ3RoIHBsYXllcjEgcGxheWVyMikKICAoZGVmaW5lIChwcmludC1wZXJtdXRhdGlvbnMgY291bnQgcGVybXMpCiAgICAoaWYgKG5vdCAoemVybz8gY291bnQpKQogICAgICAobGV0ICgocGVybSAoc3RyZWFtLWNhciBwZXJtcykpKQogICAgICAgIChmb3ItZWFjaAogICAgICAgICAgKGxhbWJkYSAoeCkKICAgICAgICAgICAgKGRpc3BsYXkKICAgICAgICAgICAgICAoY29uZCAoKD0geCBwbGF5ZXIxKSAiKiIpCiAgICAgICAgICAgICAgICAgICAgKCg9IHggcGxheWVyMikgIiMiKQogICAgICAgICAgICAgICAgICAgIChlbHNlICIgIikpKSkKICAgICAgICAgIHBlcm0pCiAgICAgICAgKG5ld2xpbmUpCiAgICAgICAgKHByaW50LXBlcm11dGF0aW9ucyAoLSBjb3VudCAxKSAoc3RyZWFtLWNkciBwZXJtcykpKSkpCiAgKHByaW50LXBlcm11dGF0aW9ucyBsZW5ndGggKHBlcm11dGF0aW9ucyAocmFuZ2UgMSAoKyBzaXplIDEpKSkpKQoKKGxldCogKChzaXplIChyZWFkKSkKICAgICAgIChsZW5ndGggKHJlYWQpKSkKICAobWV0aG9kLXJpbmdpbmcgc2l6ZSBsZW5ndGggMiBzaXplKSk=

NSAxMDA=

5 100