alias -l Decor {
  return 03»» $replace($1-,[,[,],]) `til Christmas! 03««
}
alias xmas { var %xmasday = $+(25/12/,$date(yy))
  var %calculation = $duration($calc($ctime(%xmasday 00:00:00) - $ctime))
  tokenize 32 $remove(%calculation,yrs,wks,days,hrs,mins,secs,sec,hr,yr,wk,day)
  if (*Yr* iswm %calculation) { /msg $active $decor($+([,$1,]) Years $+([,$2,]) Weeks $+([,$3,]) Days $+([,$4,]) Hours $+([,$5,]) Mins $+([,$6,]) Secs) }
  elseif (*Wk* iswm %calculation) { /msg $active $decor($+([,$1,]) Weeks $+([,$2,]) Days $+([,$3,]) Hours $+([,$4,]) Mins $+([,$5,]) Secs) }
  elseif (*Day* iswm %calculation) { /msg $active $+([,$1,]) Days $+([,$2,]) Hours $+([,$3,]) Mins $+([,$4,]) Secs }
  elseif (*Hr* iswm %calculation) { /msg $active $+([,$1,]) Hours $+([,$2,]) Mins $+([,$3,]) Secs }
  elseif (*Min* iswm %calculation) { /msg $active $+([,$1,]) Mins $+([,$2,]) Secs }
  elseif (*Sec* iswm %calculation) { /msg $active $+([,$1,]) Secs }
}