#!/usr/bin/perl -sw
##
## logbase 
##
## Copyright (c) 1998, Vipul Ved Prakash.  All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id$

my ($x, $base) = @ARGV;
die "syntax: logbase number base\n" unless ( $x && $base );
print "Natural log of $x: ", log($x), "\n"; 
print "Base $base log of $x: ", log($x) / log($base), "\n";