module Long where

long [] = 0
long (x:t) = 1 + long t