Var n, k, S: Integer;
    i, j: Real;
Begin
  ReadLn(n, k);
  i := Exp((n - 1)*Ln(10));
  j := Exp(n*Ln(10)) - 1;

  while (i <= j) do
  Begin
    n := Trunc(i);
    S := 0;
    while (n <> 0) do
    Begin
      S := S + n mod 10;
      n := n div 10;
    End;
    if (S = k) then WriteLn(i);
    i := i + 1;
  End;
End.