function calc {
   perl -ple '$_=eval'
}

function expr {
   echo "$1" | calc
}