私は小さな仕事をしようとしているhaskellの初心者です
get1th ( a , _, _ , _) = a
foo input =
where input = (a:_,b:_,c:_,d:_)
if ( length (get1th input) == 2 )
then permutations[2]
else permutations[3]
というエラーが表示されます
parse error on input `where'
ヒントをください