import Control.Monad
import qualified Data.ByteString as B {- bytestring -}
import U

go :: WithT -> IO ()
go withT = B.getLine >>= proc_b withT

main :: IO ()
main = opt_arg >>= forever . go . with_t