#!perl for(0..255){$a=sprintf"%b",$_;print$a%9%2}