#!/usr/bin/perl

use Statistics::ChiSquare;

print chisquare([2, 2, 2, 4, 2, 0]), "\n";

print chisquare([20, 20, 20, 40, 20, 0]), "\n";
