Apple script to get windows back on screen

onto-screen.scpt

#!/usr/bin/osascript

on run argv
        set l to 0
        set t to 0
        repeat with j from 1 to (count argv)
                set a to item j of argv
                tell application a
                        repeat with x from 1 to (count windows)
                                set b to bounds of window x
                                set w to item 3 of b - item 1 of b
                                set h to item 4 of b - item 2 of b
                                set bounds of window x to {l, t, w + l, h + t}
                        end repeat
                end tell
        end repeat
end run