#!perl -pl
$_+=2*<>+3e7;y'012' -_';s/3//