set a [clock format [clock seconds] format "%Y/%m/%d"]
set b [clock format [clock seconds] format "%H:%M"]
set c [clock format [clock seconds] format "%A"]
if {$c == "Monday"} {set c 1}
if {$c == "Tuesday"} {set c 2}
if {$c == "Wednesday"} {set c 3}
if {$c == "Thursday"} {set c 4}
if {$c == "Friday"} {set c 5}
if {$c == "Saturday"} {set c 6}
if {$c == "Sunday"} {set c 7}
MOM_output_literal "($a $b /$c)"