mirror of https://codeberg.org/anemofilia/zero
15 lines
348 B
Plaintext
15 lines
348 B
Plaintext
|
#!/usr/bin/env -S guile
|
||
|
|
!#
|
||
|
|
|
||
|
|
(use-modules (ice-9 textual-ports)
|
||
|
|
(srfi srfi-197)
|
||
|
|
(radix utils))
|
||
|
|
|
||
|
|
(for-each (lambda (line)
|
||
|
|
(display line)
|
||
|
|
(newline))
|
||
|
|
(chain (current-input-port)
|
||
|
|
(get-string-all _)
|
||
|
|
(string-split _ #\newline)
|
||
|
|
(duplicates _)))
|