pro funspx,param,mf
dmy=256
fun,dmy,param,f
mf=-f
return
end