/*&uf('+7W1001#^A201912^B01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31')
/*/g1001/
 &uf('+7W4#'(&uf('1*R,?g1001^B#1')/)),
/*(|g4: |g4/)/ 
  &uf('+7U5#'(if p(g4) then &uf('Ag1001^a#1'),g4 fi/))/
/*(|g5: |g5/)/ 
  
/*g1001/