-- Find kth element in a list
-- complete
elementAt :: [a] -> Int -> a
elementAt [] k = error "no kth element"
elementAt (x:xs) k = if (k == 1) then x
else (elementAt xs (k-1))