path: guix_1.4.0-9/gnu/build/linux-boot.scm
    (logand (network-interface-flags sock interface) IFF_UP)))
(define (pidof program)
  "Return the PID of the first presumed instance of PROGRAM."
  (let ((program (basename program)))