fromChar char
    | Just symbol <- lookup char table = symbol
    | otherwise = Blank [char]
fromChar char
    | Just symbol <- lookup char table = symbol
    | otherwise = Blank [char]
fromChar char
    | Just symbol <- lookup char table = symbol
    | otherwise = Blank [char]