CLS
INPUT N$
L=LEN(N$)
DIM A$(L)
FOR I = 1 TO L
 F=-1
 FOR J = 1 TO S
  IF MID$(N$,I,1)=A$(J) THEN F=0:EXIT FOR
 NEXT J
 IF F=-1 THEN S=S+1:A$(S)=MID$(N$,I,1)
NEXT I
FOR I = 1 TO L
 FOR J = 1 TO L
  IF MID$(N$,I,1)=A$(J) THEN C(J)=C(J)+1
NEXT J,I
FOR I = 1 TO S-1
 P=I
 FOR J = I+1 TO S
  IF C(J)>C(I) THEN P=J
 NEXT J
 SWAP C(P),C(I):SWAP A$(P),A$(I)
NEXT I
PRINT A$(1);
FOR I = 2 TO S
 IF A$(I)=A$(1) THEN PRINT A$(I); ELSE EXIT FOR
NEXT I
END