#!/usr/bin/perl

open FILE, $ARGV[0] or die "Can't open question pool!\n";
while (chomp($line = <FILE>)) {
	if ($line =~ /^[TGE]\d[A-Z]\d+/) {
		push @pool, $line;
		push @pool, scalar(<FILE>) for (1..5);
	}
}
close FILE;

do {
	$x = int(rand($#pool/6));
	$a = ($pool[$x*6] =~ /\(([A-D])\)/)[0];
	print $pool[$_+$x*6] for (1..5);
	chomp($e = <STDIN>);
	if (uc($e) eq $a) {
		print "Correct!\n";
		$c++;
	}
	else {
		print "Wrong - correct: $a\n";
	}
	$n++;
	printf "\n\nStats: $c of $n correct (%.1f%%)\n\n\n", 100*$c/$n;
} while ($e =~ /[A-D]/i);