RosettaCodeData/Task/Reverse-a-string/AWK/reverse-a-string-1.awk

function reverse(s)
{
  p = ""
  for(i=length(s); i > 0; i--) { p = p substr(s, i, 1) }
  return p
}

BEGIN {
  print reverse("edoCattesoR")
}