(use-modules ((ice-9 popen) #:select ((open-input-pipe . oip))))