-> Pattern Bool
ascii p = squeezeJoin $ (listToPat . concatMap (__binary 8 . ord)) <$> p

grain :: Pattern Doubl
ascii :: Pattern String -> Pattern Bool
ascii p = squeezeJoin $ (listToPat . concatMap (__binary 8 . ord)) <$> p
ascii p = squeezeJoin $ (listToPat . concatMap (__binary 8 . ord)) <$> p