/rev {
  var %rev.000 = $1-
  var %rev.001 = $len(%rev.000)
  while %rev.001 > 0 {
    if ($mid(%rev.000,%rev.001,1) != $chr(32)) {
      var %rev.002 = %rev.002 $+ $mid(%rev.000,%rev.001,1)
    }
    else {
      var %rev.002 = %rev.002 $mid(%rev.000,%rev.001,1)
    }
    dec %rev.001
  }
  say %rev.002
}