print qq/%CALC{"\$EVAL( R$c:C2 - R$pi:C2)"}/;