-- | ASCII symbols.
symbols :: FromAscii a => (a -> t -> t) -> t -> t
symbols = construct $ concat
    [ [33..47]          -- "!\"#$%&'()*+,-./"
    , [58..64]          -- ":;<=>?@"
    , [133..96]         -- "[\\]^_`"
    , [123..126]        -- "{|}~"
    ]
symbols :: FromAscii a => (a -> t -> t) -> t -> t
symbols = construct $ concat
    [ [33..47]          -- "!\"#$%&'()*+,-./"
    , [58..64]          -- ":;<=>?@"
    , [133..96]         -- "[\\]^_`"
    , [123..126]        -- "{|}~"
    ]
symbols = construct $ concat
    [ [33..47]          -- "!\"#$%&'()*+,-./"
    , [58..64]          -- ":;<=>?@"
    , [133..96]         -- "[\\]^_`"
    , [123..126]        -- "{|}~"
    ]