(use-modules (guix))

(define cu (@@ (gnu packages commencement) coreutils-final))
(define bash (@@ (gnu packages commencement) bash-final))

(define build
  #~(let* ((_ #$output)
           (cut (string-append #$cu "/bin/cut -b4294967296 /dev/null "))
           (status (system* (pk 'bash (string-append #$bash "/bin/sh")) "-c"
                            (string-append "set -x; (ulimit -v 2004; echo before; "
                                           cut " 2>/dev/null)"
                                           "; echo after $?")))
           (status2 (system cut))
           (status3 (apply system* (string-tokenize cut))))
      (pk 'status status (status:exit-val status))
      (pk 'status2 status2 (status:exit-val status2))
      (pk 'status3 status3 (status:exit-val status3))
      #f))

(with-store store
  (run-with-store store
    (mlet %store-monad ((drv (gexp->derivation "foo" build)))
      (built-derivations (list drv)))))