$var 32 Y $
  $ass Y=0, 6, 5, 3, 1, 12,  9, 31, 0, 0, 0, 0,  6, 17, 2, 3,
         6, 8, 1, 9, 2,  0, 11,  7, 9, 4,15, 2, 12,  3, 4, 6 $
  $gfac 32 A 2 B 2 C 2 D 2 E 2 $
  $list FACS=A+B+C+D+E $
  $input 'uep.mac'$
  $use UEP Y FACS$
  $return