stdin linesDo:[:y|(y,' is ',((Date newDay:60year:y asNumber)day>1or:['not ']),'a leap year.')displayNl]