anchor.diff:      #! ${bash}/bin/sh
       diskImage=$diskImage
       TMPDIR=$TMPDIR
  +    ${socat}/bin/socat unix-listen:$TMPDIR/samba exec:'${samba}/sbin/smbd -s $TMPDIR/smb.conf' &
  +    while [ ! -e $TMPDIR/samba ]; do sleep 0.1; done # ugly
       ${qemuCommand}
       EOF
   
  
positive.code: 
    createRootFS = ''
      mkdir /mnt
      ${e2fsprogs}/sbin/mke2fs -F /dev/vda
      ${utillinux}/bin/mount -t ext2 /dev/vda /mnt
  
      if test -e /mnt/.debug; then
        exec ${bash}/bin/sh
  
negative.code: { pkgs }:
  
  with pkgs;
  
  