print "Enter width\n";
chop($ans = <>);
print "Enter height\n";
chop($ans2 = <>);

for ($i=0;$i < $ans;$i++)
{
  for ($j=0;$j < $ans2;$j++)
    {
      print "*";
    }
  print "\n";
}