print "*** ($capsule) *** Result: ($result)\n";