main = shelly $ do
  csv <- readfile "users.csv"
  mapM_ (sudo . mk_user) (usersFromCSV csv)