sumlist = [
  if (testlist $arg1) [
    cursum = 0
    loop sll (listlen $arg1) [
      +=f cursum (at $arg1 $sll)
    ]
    result $cursum
  ]
]
// echo (sumlist "2.5 7.5 5") // Output: 15.0
// echo (sumlist "1.3 6.305 2.46 1.67 13.57 6.02") // Output: 31.325

sublist = [
  if (testlist $arg1) [
    cursub = (at $arg1 0)
    loop bll (- (listlen $arg1) 1) [
      -=f cursub (at $arg1 (+ $bll 1))
    ]
    result $cursub
  ]
]
// echo (sublist "75 35.5 12.25") // Output: 27.25

mullist = [
  if (testlist $arg1) [
    curmul = (at $arg1 0)
    loop mll (- (listlen $arg1) 1) [
      *=f curmul (at $arg1 (+ $mll 1))
    ]
    result $curmul
  ]
]
// echo (mullist "2.5 2 5") // Output: 25.0

divlist = [
  if (testlist $arg1) [
    curdiv = (at $arg1 0)
    loop dll (- (listlen $arg1) 1) [
      curdiv = (divf $curdiv (at $arg1 (+ $dll 1)))
    ]
    result $curdiv
  ]
]
// echo (divlist "10 2 2") // Output: 2.5