program XardasLord;
 
{$MODE OBJFPC}{$LONGSTRINGS ON}
 
  procedure MakeCake(AAge, ALayers: Integer);
  const
    Title = 'Happy Birthday!';
  var
    I: Integer;
  begin
    WriteLn(Title:AAge + Length(Title) shr 1, LineEnding);
 
    for I := 0 to AAge - 1 do Write('*':2); WriteLn();
    for I := 0 to AAge - 1 do Write('|':2); WriteLn();
 
    for I := 0 to ALayers - 1 do
      WriteLn('[', StringOfChar('-', AAge shl 1 - 1), ']');
  end;
 
begin
  MakeCake(27, 4);
end.

cHJvZ3JhbSBYYXJkYXNMb3JkOwoKeyRNT0RFIE9CSkZQQ317JExPTkdTVFJJTkdTIE9OfQoKICBwcm9jZWR1cmUgTWFrZUNha2UoQUFnZSwgQUxheWVyczogSW50ZWdlcik7CiAgY29uc3QKICAgIFRpdGxlID0gJ0hhcHB5IEJpcnRoZGF5ISc7CiAgdmFyCiAgICBJOiBJbnRlZ2VyOwogIGJlZ2luCiAgICBXcml0ZUxuKFRpdGxlOkFBZ2UgKyBMZW5ndGgoVGl0bGUpIHNociAxLCBMaW5lRW5kaW5nKTsKCiAgICBmb3IgSSA6PSAwIHRvIEFBZ2UgLSAxIGRvIFdyaXRlKCcqJzoyKTsgV3JpdGVMbigpOwogICAgZm9yIEkgOj0gMCB0byBBQWdlIC0gMSBkbyBXcml0ZSgnfCc6Mik7IFdyaXRlTG4oKTsKCiAgICBmb3IgSSA6PSAwIHRvIEFMYXllcnMgLSAxIGRvCiAgICAgIFdyaXRlTG4oJ1snLCBTdHJpbmdPZkNoYXIoJy0nLCBBQWdlIHNobCAxIC0gMSksICddJyk7CiAgZW5kOwoKYmVnaW4KICBNYWtlQ2FrZSgyNywgNCk7CmVuZC4=