$a=sprintf "%02d%02d%02d",$_[0]%4,(2+$_[0])%40%4,$_[0];