(use-modules (ice-9 popen) (ice-9 rdelim))
(let ((in (open-pipe* OPEN_READ "head" "-c" "8b" "/dev/random")))
  (call-with-output-file "/tmp/where"
    (lambda (out) (display (read-line in) out)))
  (close-pipe in))

Generated by Ricardo Wurmus using scpaste at Sat Dec 31 09:21:59 2022. CET. (original)