program CodeTranslation;

const
  Nmax = 1000007;

var
  n, s: Int64;
  a: array[1..Nmax] of Int64;

function ktnt(n: Int64): Boolean;
var
  i: Int64;
begin
  if n <= 1 then
    Result := False
  else if n <= 3 then
    Result := True
  else if (n mod 2 = 0) or (n mod 3 = 0) then
    Result := False
  else
  begin
    i := 5;
    while i * i <= n do
    begin
      if (n mod i = 0) or (n mod (i + 2) = 0) then
      begin
        Result := False;
        Exit;
      end;
      i := i + 6;
    end;
    Result := True;
  end;
end;

begin
  ReadLn(n);
  for var i := 1 to n do
  begin
    ReadLn(a[i]);
    s := s + a[i];
  end;
  WriteLn(s);
  for var i := 1 to n do
    Write(a[i], ' ');
  WriteLn;
  for var i := 1 to n do
  begin
    if ktnt(a[i]) then
      Write(a[i], ' ');
  end;
end.