#!/usr/bin/txr
@(define get-datetime(datetime))@{datetime /\d\d\d\d[\- ]\d\d[\- ]\d\d[T ]\d\d:\d\d:\d\d/}@(end)
@(collect)
@pre@(get-datetime datetime)@post
@(end)
@(output)
@(repeat)
@pre@\e[33m@datetime@\e[m@post
@(end)
@(end)