'[.RIsStupid' <- function(x, i) {
  class(x) <- "character"
  x <- x[i]
  class(x) <- "RIsStupid"
  x
}

'>.RIsStupid' <- function(a,b) {
  ifelse( paste0(a, b) > paste0(b, a), TRUE, FALSE)
}

'==.RIsStupid' <- function(a, b) 
  ifelse(a > b || b > a, FALSE, TRUE)


makeThem <- function(input) {
  inputs <- strsplit(input, ' ')[[1]]
  class(inputs) <- "RIsStupid"
  inputs <- sort(inputs)
  cat(c(paste(inputs, collapse = ''), paste(rev(inputs), collapse = '')))
}

makeThem("79 82 34 83 69")
makeThem("420 34 19 71 341")
makeThem("17 32 91 7 46")