gosh.scm

;; https://teratail.com/questions/83177

(use srfi-14 :only (char-set->list))

(define (pr xxs)
  (define (stringify xxs listref)
    (string-join (concatenate (map listref xxs)) " "))

  (begin
    ($ print $ stringify xxs car)
    ($ print $ stringify xxs (cut list-ref <> 1 '()))))

(let ()
  (define xs ($ map string $ sort $ char-set->list #[a-z]))
  (define (slices~ n xs) (slices xs n))

  (for-each pr ($ slices~ 4 $ slices~ 2 $ slices~ 2 xs)))