RosettaCodeData/Task/Keyboard-macros/Tcl/keyboard-macros-2.tcl

bind . <F1> {
    foreach c [split "Macro demo!" {}] {
        event generate %W $c
    }
}