added implementation in Tcl

Change-Id: If4c3d99377046b020110bf91c90c7a4d4a0135c7
Signed-off-by: Matthias Fritzsche <txt.file@txtfile.eu>