void local fn DoIt
  CFStringRef s1 = @"asdf", s2 = @""
  long index
  for index = len(s1) - 1 to 0 step -1
    s2 = fn StringByAppendingString( s2, mid(s1,index,1) )
  next
  print s1,s2
end fn

window 1

fn DoIt

HandleEvents