Создание предложения Хакоджи ...
Вероятно, что XXX в этот момент является либо 1) постоянным для каждой клавиши, либо 2) некоторой функцией, основанной на клавише, либо 3) каким-то образом определенным параллельно клавише.
1) константа ххх для каждого ключа
keys = [(1,2),(2,3),(7,9)]
xxx = "A"
ftable = Data.Map.fromList $ zip keys (repeat xxx)
2) функция выдает значение на основе ключа
keys = [(1,2),(2,3),(7,9)]
f = ...
ftable = Data.Map.fromList $ zip keys (map f keys)
3) xxx определено параллельно: используйте предложение hakoja