Here are the results after implementation of my subfunction :
Command: (rem 0.1 0.1)
0.0
Command: (rem 0.2 0.1)
0.0
Command: (rem 0.3 0.1)
-4.44089e-17
Command: (rem 0.4 0.1)
0.0
Command: (rem 0.5 0.1)
0.0
Command: (rem 0.6 0.1)
-8.88178e-17
Command: (rem 0.7 0.1)
-8.88178e-17
Command: (rem 0.8 0.1)
0.0
Command: (rem 0.9 0.1)
0.0
Command: (rem 1.0 0.1)
0.0
Command: (rem 1.1 0.1)
0.0
Command: (rem 1.2 0.1)
-1.77636e-16
Command: (rem 1.3 0.1)
0.0
Command: (rem 1.4 0.1)
-1.77636e-16
Command: (rem 1.5 0.1)
0.0
Command: (rem 2.05 0.1)
0.05
Command: (rem -2.05 0.1)
-0.05
Command: (rem -2 0.1)
0.0
Command: (rem -2 1)
0
Command: (rem 1 2)
0
Command: (rem 1.0 2)
0.0
Command: (rem 1.0 2.0)
0.0
Command: (rem 1.0 3.0)
0.0
Command: (rem pi pi)
0.0
Command: (rem (* 2 pi) pi)
0.0
Command: (rem (* 3 pi) (* 0.5 pi))
0.0
Command: (rem (* 3.05 pi) (* 0.5 pi))
0.15708
Command: (rtos (rem (* 3.05 pi) (* 0.5 pi)) 2 50)
"0.1570796326794891"
Command: (rtos (* 0.05 pi) 2 50)
"0.1570796326794896"
HTH., M.R.