sub cprint {
    $capture ? (print @_) : push(@output,@_);
}