#! /usr/bin/perl -w
  use strict;
  use M;
  my $m = M->new;