by the way, you can replace the wrap~ and minus objects with [expr~ int($v1)]

not that it really matters...