##
function F(str: string): integer;
begin
var input := 5;
foreach var s in str do
  begin
  if (s = '1') then input := input*3;
  if (s = '2') then input := input + 1;
  end;
Result := input;
end;
var (&result, str) := (0,'12');

foreach var c1 in str do
  foreach var c2 in str do
    foreach var c3 in str do
      foreach var c4 in str do
        foreach var c5 in str do
          begin
            var s := c1+c2+c3+c4+c5;
            &result := F(s);
            println(s,&result)
          end;