!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=The inverse of a square matrix
slib_parms=1\
,the input matrix
slib_author=Gang Xiao
slib_out=the inverse matrix (empty if error)
slib_example=1,0;6,1
!exit

:proc
slib_mat=!declosing $wims_read_parm
!if $slib_mat=$empty
 slib_out=
!else
 slib_out=!exec pari print([$slib_mat]^-1)
!endif

