引数の数が可変ってhaskellでは書けないような気が。
何か方法あったっけ？