Proc :: Opts -> IO ()
mainProc (Opts s fs file) = readF file >>= mainProc' s fs

ma
mainProc :: Opts -> IO ()
mainProc (Opts s fs file) = readF file >>= mainProc' s fs
mainProc (Opts s fs file) = readF file >>= mainProc' s fs