sub subtraction {
    local $" = "-";
    eval "@{[split ' ' => scalar <STDIN>]}";
}