(while:prs(= f[<(mod y _)1]y(read))'is(if(f(if(f 50)16 4))'a"not a")'leap"year.
")