:qljr()
:Func
:Local jr,dat,n
:{"dimanche","lundi","mard
 i","mercredi", "jeudi","ve
 ndredi","samedi"}->jr
:getDate()->dat
:dayOfWk(dat[1],dat[2],dat
 [3])->n
:jr[n]
:EndFunc

// écrit le jour d'aujourd'hui.