-- Question 6
                
-- map
selectn :: [a] -> Int -> a
selectn [] _ = error "no element in the list"
selectn :: [a] -> Int -> a
selectn [] _ = error "no element in the list"
selectn [] _ = error "no element in the list"