Zdobądź długość smyczkową Haskell

length :: [a] -> Int
Marton