<pre>on shiftRight howMany  -- shift the selection right.  if howMany is empty then put 1 into howMany  put empty into spaces  repeat howMany times    put space after spaces  end repeat  get the selection  repeat with i = 1 to the number of lines in it    put spaces before line i of it  end repeat  replaceAll itend shiftRight</pre>