read y;a=not;a[$y%(y%50?4:16)]=;echo $y is $a a leap year.;. *