partFromList :: [String] -> Int -> String
partFromList list id = list !! (id `mod` length list)
partFromList :: [String] -> Int -> String
partFromList list id = list !! (id `mod` length list)
partFromList list id = list !! (id `mod` length list)