#!/usr/bin/perl

use BabyRegex;

die 'usage: perl regexc.pl "pattern" ' unless @ARGV[0];
$pattern = @ARGV[0];

$c = BabyRegex->new($pattern);
$c->pasm();