void local fn perm( w as CFStringRef )
  Short a, b, c, d
  for a = 0 to 3 : for b = 0 to 3 : for c = 0 to 3 : for d = 0 to 3
    if a != b and a != c and a != d and b != c and b != d and c != d
      print mid(w,a,1); mid(w,b,1); mid(w,c,1); mid(w,d,1)
    end if
  next : next : next : next
end fn

fn perm (@"abel")

handleevents