#!/usr/bin/perl -l
use List::Util 'max';
chomp for my @r = <>;
my $len = 1 + max map length, @r;
my $size = (80 - $len) / max @r;
print $_, ' 'x($len-length), '#'x($_*$size) for @r;