toChar :: Bool -> Char
toChar True = 'a'
toChar False = 'b'

ghci> map toChar [True, False, False, True, True, False, True]
"abbaaba"