populate :: Problem -> Environment
populate (servers, vms) = Env bimap servers vms
  where
    bimap = B.fromList $ zip [1..] [(s,v) | s <- servers, v <- vms]
populate :: Problem -> Environment
populate (servers, vms) = Env bimap servers vms
  where
    bimap = B.fromList $ zip [1..] [(s,v) | s <- servers, v <- vms]
populate (servers, vms) = Env bimap servers vms
  where
    bimap = B.fromList $ zip [1..] [(s,v) | s <- servers, v <- vms]