module Main where

import System.IO

main :: IO()
main =  do
    result <- charName 'a' -- error could not match type
    putStr result -- error could not match type

charName :: Char -> String
charName 'a' = "Albert"
charName 'b' = "Broseph"
charName 'c' = "Cecil"