foreach a [read stdin] {puts [expr $a+1|1]}