mathop

namespace im tcl::mathop::*

proc P x {
    puts $x
    set f [string range $x 1 end-1]
    puts $f

    #try 1
    #return $x

    #try 2
    #return [$f]
}


lmap x {
    "[+ -4 5]"
    "[/ [+ 4 [* 2 5]] [+ 1 [* 3 2]]]"
} {
   puts $x: 
   puts [P $x]
}