#!/usr/bin/env gosh
(let ((n (read-line)))
  (display (list->string (sort (string->list n) char>?)))
  (newline))