素晴らしい。
ちなみにmapする関数をユーザに入力させるプログラムはどうやって書けばよいでしょうか？

getLine >>= \s -> map (??? s) xs