#! perl -sw
use 5.010;
use strict;

our $FLAG;

if( $FLAG ) {
    require '780835-s.pl';
    doit();
}