test :: [Char] -> Char   
test (a:b:bs) -> b