function a($)
    $a = substr($,6)
    $a = left($,7)+'/'+(31-substr(_3_1_1__1_1,$a)+(2=$a & $ mod 4=0 & 0.01*$ mod 4=))
endfunction