#!/usr/bin/perl

package main;

use warnings;
use strict;

use lib './';
use LPST;

my $b;

# my $m1 = "F7";
# my $m1 = "C10";
# my $m2 = "B3";
# my $c1 = $MG_SY;
# my $c2 = $MG_A;

# $board{$m1} = $P1.$DIV.$c1;
# $board{$m2} = $P2.$DIV.$c2;

# for my $el (get_block_cell($P1)){
#     printf("%s\n", $el);
# }

# shade_all_mvmt($P1);
# disp_board();

$b = LPST->new();

$b->shade_all_mvmt("P1");
$b->disp_board();