    PrepareSSH      -> [ "_init_", methodArg m ]
    DockerChroot    -> [ "_chroot_", methodArg m ]
    (DockerBuild x) -> [ "_docker_", show x, methodArg m ]
    Root            -> [ methodArg m ]

parseRecipes :: [String] -> (Recipes, Method)
parseRecipes = \case
    ("_init_":arg:[])     -> (PrepareSSH, appMethod arg)
    ("_chroot_":arg:[])   -> (DockerChroot, appMethod arg)