
;Ȃ
;print $_FILE

PRINT \@spara() = @spara()
PRINT \@spara(-b) = @spara(-b)
PRINT \@spara( -b ) = @spara( -b )
PRINT \@spara(-b,0) = @spara(-b,0)
PRINT \@spara(-b,1) = @spara(-b,1)
PRINT \@spara(-b,1,4) = @spara(-b,1,4)
trace \@spara("") = @spara("")
trace \@spara( '' ) = @spara( '' )
trace \@spara( -w ) = @spara( -w )
trace \@spara(-w,0) = @spara(-w,0)
trace \@spara(-w,1) = @spara(-w,1)
trace \@spara(-w,2) = @spara(-w,2)
trace \@spara(-w,3) = @spara(-w,3)
trace \@spara(-ww) = @spara(-ww)
trace \@spara(-P) = @spara(-P)
trace \@spara(-D) = @spara(-D)
PRINT \@spara( -b ab) = @spara( -b ab );
trace \@spara(-w, xx0) = @spara(-w, xx0)
trace \@spara(, ) = @spara(, )
trace \@spara(-P , kl) = @spara(-P , kl)
