use 5.01;say++$|+($n=<>+1)%2,$",$n>>1;say$`,$",$n+<>=~$"-$'-$`while<>