sub d { $_[0] = 10 ; return 1 ; } ;
  sub o { print $_[1] ; return $_[0] ; } ;

  $x = 78 ;
  print "\$x=$x.  \$x + d(\$x): " ;
    print o($x, 'LHS ') + o(d($x), 'RHS '), "  \$x=$x\n" ;
  $x = 78 ;
  print "\$x=$x.  d(\$x) + \$x: " ;
    print o(d($x), 'LHS ') + o($x, 'RHS '), "  \$x=$x\n" ;