Update 1_45.scm

some experiments made, trying to define n-root function. Not working yet.