zero/home-environments/radio/files/.local/bin/dup

15 lines
348 B
Scheme
Executable File

#!/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 _)))