tell application "TaskPaper"
tell front document
set move_entry_ids to {}
set f to project named "From"
repeat with each in entries of f
set move_entry_ids to move_entry_ids & id of each
end repeat
set t to project named "To"
repeat with each in move_entry_ids
move entry id each to end of entries of t
end repeat
end tell
end tell
