function res = p1( x )
  res = -x ;
end