#!/usr/bin/perl -w
use strict;

# pbc - Komentorivilaskin - 2002-05-10

die "$0: Anna laskettava lauseke yhtenä merkkijonona\n"
    if @ARGV > 1;

# laske

my $r;

if ( $ARGV[0] ) {

    $r = eval $ARGV[0]

} else {

    die "$0: Ei argumenttia!\n"
}

# tulosta

unless ($@) {

    print $r, "\n"

} else {

    die "$0: Virheellinen lauseke?\n$@\n"

}

#  http://www.r-project.org