a-frmt.tcl