foreach a [read stdin] {puts "$a is[expr $a%400&&!($a%100)||$a%4?{ not}:{}] a leap year."}