(define %os
  (load (string-append (dirname (current-filename)) "/vm.scm")))

(list (machine
       (operating-system %os)
       (environment managed-host-environment-type)
       (configuration (machine-ssh-configuration
                       (host-name "localhost")
                       (system "x86_64-linux")
                       (port 22)
                       (host-key "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIN0aj062v8Mnxidud6DAyEN8XI8eCx+0fe6ad7QG1fXj")
                       (allow-downgrades? #t)))))