module Parenthesis(module ArrowReadShow, module Parenthesis) where
import ArrowReadShow

parenthesize   :: ArrowSymbol q => q a b -> q a b
parenthesize   f = showSymbol "(" <<< f <<< showSymbol ")"

deparenthesize :: ArrowSymbol q => q a b -> q a b
deparenthesize f = readSymbol "(" >>> f >>> readSymbol ")"