decode :: Char -> Double
decode c = realToFrac ((toRational (ord c) / 255.0 * 2) - 1.0)
decode :: Char -> Double
decode c = realToFrac ((toRational (ord c) / 255.0 * 2) - 1.0)
decode c = realToFrac ((toRational (ord c) / 255.0 * 2) - 1.0)