Some goofing around with SmartOS / VirtualBox automation in Haskell