#!/usr/bin/perl
use strict;
use warnings;
use Games::Dice 'roll', 'roll_array', 'roll_whitewolf';



print roll_whitewolf(10, 8, 'yes');