# Input: adjectif.
# Output: ms,fs,mp,fp,adv

word=$wims_read_parm
invariable=!lookup invariable in $listdic

!if $word isitemof $invariable
 slib_out=$word,$word,$word,$word
 !exit
!endif

!read slib/lang/fraccord $word

