alias isdate { 
  var %t $1 
  tokenize 47 $1
  return $iif($count(%t,/) = 2 && $3 isnum && $2 < 13 && + !isin $1 && . !isin $1 && $1 <= $gettok($+(31.,2,$iif(4 // $3 && 100 \\ $3,9,$iif(400 // $3,9,8)),.31.30.31.30.31.31.30.31.30.31),$2,46),1,0)