First I wrote the complete solution, we see that the quotients return the right parameters one after the other:
Here I started to write the program using the first two steps above and I returned the values to confirm that it works:
But when I add the line N <- num(s), I whant ot find the coeeicients of the numerator as I did above, but the SW applies the finction "coeffs" to the whole program instead.
Below the is continuation of the complete solution I wrote first: