$%+=print"$%
"x!grep/2/,map$%/3**$_%3,0..6for 1..1e3