INTEGER N
INTEGER L
CHARACTER(150),ALLOCATABLE,DIMENSION(:)::S
CHARACTER(150) AKIBAKO
CHARACTER(100500) ANSWER
!念の為制限字数より５０文字多めにとっておきます
!AKIBAKOは文字列を交換する用の入れ物です。
READ*,N,L
ALLOCATE(S(N))
READ*,S

!字引順に並び替えます
DO I=1,N
!S(I)を決めていきます
	DO J=I+1,N
		IF ( LGT(S(I),S(J)) ) THEN!LGTは文字列を比較する関数でこの場合入れ替える必要がある時TRUEを返します
			AKIBAKO=S(I)
			S(I)=S(J)
			S(J)=AKIBAKO
		ENDIF
	END DO    
END DO
!ソートおしまい

ANSWER=""
DO I=1,N
	ANSWER=TRIM(ANSWER)//TRIM(S(I))
END DO
PRINT"(A)",TRIM(ANSWER)
END