#!/usr/local/bin/perl -w
$|++; print "calc: ";
print eval, "\ncalc: "
while chomp( $_ = <STDIN> );