after.hs

foldCase_ :: Word8 -> Word8
foldCase_ w = case fromIntegral w of
    I# n -> W8# (indexWord8OffAddr# table n)
  where
    table :: Addr#
    table = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\x9\xa\xb\xc\xd\xe\xf\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f\x20\x21\x22\x23\x24\x25\x26\x27\x28\x29\x2a\x2b\x2c\x2d\x2e\x2f\&0123456789\x3a\x3b\x3c\x3d\x3e\x3f\x40\&abcdefghijklmnopqrstuvwxyz\x5b\x5c\x5d\x5e\x5f\x60\&abcdefghijklmnopqrstuvwxyz\x7b\x7c\x7d\x7e\x7f\x80\x81\x82\x83\x84\x85\x86\x87\x88\x89\x8a\x8b\x8c\x8d\x8e\x8f\x90\x91\x92\x93\x94\x95\x96\x97\x98\x99\x9a\x9b\x9c\x9d\x9e\x9f\xa0\xa1\xa2\xa3\xa4\xa5\xa6\xa7\xa8\xa9\xaa\xab\xac\xad\xae\xaf\xb0\xb1\xb2\xb3\xb4\xb5\xb6\xb7\xb8\xb9\xba\xbb\xbc\xbd\xbe\xbf\xc0\xc1\xc2\xc3\xc4\xc5\xc6\xc7\xc8\xc9\xca\xcb\xcc\xcd\xce\xcf\xd0\xd1\xd2\xd3\xd4\xd5\xd6\xd7\xd8\xd9\xda\xdb\xdc\xdd\xde\xdf\xe0\xe1\xe2\xe3\xe4\xe5\xe6\xe7\xe8\xe9\xea\xeb\xec\xed\xee\xef\xf0\xf1\xf2\xf3\xf4\xf5\xf6\xf7\xf8\xf9\xfa\xfb\xfc\xfd\xfe\xff"#

before.hs

foldCase_ :: Word8 -> Word8
foldCase_ x = case x of
    0x41 -> c2w 'a'
    0x42 -> c2w 'b'
    0x43 -> c2w 'c'
    0x44 -> c2w 'd'
    0x45 -> c2w 'e'
    0x46 -> c2w 'f'
    0x47 -> c2w 'g'
    0x48 -> c2w 'h'
    0x49 -> c2w 'i'
    0x4a -> c2w 'j'
    0x4b -> c2w 'k'
    0x4c -> c2w 'l'
    0x4d -> c2w 'm'
    0x4e -> c2w 'n'
    0x4f -> c2w 'o'
    0x50 -> c2w 'p'
    0x51 -> c2w 'q'
    0x52 -> c2w 'r'
    0x53 -> c2w 's'
    0x54 -> c2w 't'
    0x55 -> c2w 'u'
    0x56 -> c2w 'v'
    0x57 -> c2w 'w'
    0x58 -> c2w 'x'
    0x59 -> c2w 'y'
    0x5a -> c2w 'z'
    _    -> x