This negsin[n] function will return the result of negating the sine of n.
var a:=negsin[15]; var y; y:=negsin[a];