main = print $ my_length [1..10]

my_length :: [a] -> Integer
my_length [] = 0
my_length (_:xs) = 1 + my_length xs