#!/usr/bin/perl -w
use strict;
my $a=2*40;
my $b=18.5*4;
my $c=5.2000*20;
my $d=3.8800000*25;
my $e= $c+ $b- $a- $d;
foreach( $b, $d, $a, $c)
{print chr($_) x $e, "\n"}