0

In Floop, 70 bytes, pos. only
r+s[r-]r[-n?o?s+]r+s-[@[-r-n+]r[s-o-[r-]r[-@;]]]r[n[-r@+r-@+]r[-s+]]s+
I wrote this in three parts:
Outer part: r+s[r-]r[-n?o?s+]r+s-[A]r[B]s+ (based off of my ass-two-numbers program)
A: @[-r-n+]r[s-o-[r-]r[-@;]] (copies @1 to n, 1 at a time)
B: n[-r@+r-@+]r[-s+] ...