nameFromIds :: Int -> Int -> String
nameFromIds id1 id2 = (partFromList part1 id1) ++ (partFromList part2 id2)
nameFromIds :: Int -> Int -> String
nameFromIds id1 id2 = (partFromList part1 id1) ++ (partFromList part2 id2)
nameFromIds id1 id2 = (partFromList part1 id1) ++ (partFromList part2 id2)