単語索引

友人がandroidで、単語帳SQLを作っていると聞いて。
Haskellなら簡単にできそう！！
と思って、バイト帰りにやってみた

ただ..........
私にスキルが全くないという致命的な....
とりあえずひな型だけ完成

deutschWords = [("ich","I"),("Himmel","sky"),("trinken","drink")]

main = do cs <- getContents
          print $ lookup (head $ lines cs) deutschWords

一行目のDeutschwords、これがタプルのリスト。
この部分を、ファイルから読み込めるようにすればそれだけでかなり利用しやすい形になるのですが、ファイルから読み込んだデータをどうやってタプル形式にリスト化するのか分からない
悲しいかな
まだまだ勉強不足！！
でも、JavaやCで書くより短く簡潔になるのは間違いないかと