#!/usr/bin/perl
	use lib '/home/peter/sr-cvs/fancydice';
	use fancydice2;
	use fancydiceops;
	# macro 'd' to implement common dice notation
	$macros = {'d' => '@[1_>]',
			'p' => '@["*", "**", "***", "****", "*****","******"]',
			'bfa' => '@[".","*","*","**","U","U","*U","UU"]',
			'bfp' => '@[".","*","*","**","**","*U","*U","*U","U","UU","UU","(*)"]',
			'bfb' => '@[".",".","*","U","UU","*U"]',
			'bff' => '@["&","&","&","&","&","&","&&","O","O","O","OO","OO"]',
			'bfd' => '@[".","@","@","@","@@","@A","A","AA"]',
			'bfc' => '@[".","@","@","@@","@@","@A","@A","A","A","AA","AA","(A)"]',
			'bfs' => '@[".",".","@","@","A","A"]',
			# Aspect Prime dice
			'a' => '@[".", ".", "AA", "S", "A", "SS"]',
			'b' => '@[".", "A", "SAA", "S", "SSA", "SS"]',
			'c' => '@[".", "SA", "SSAA", "SSA", "SSA", "SSS"]'
	};

	#$dice = shift @ARGV;
	$dice = join ' ', @ARGV;
	print "$dice\n";
	@roll = &fancydice::roll($dice, $macros, $fancydice::namedops);
	print (join("\t", @roll)."\n");
	# $roll contains 3 random #s in 1..6
	$total = &fancydice::sum(@roll);
	print ("total => $total\n");