Swap foreground and background.
pure function ansi_reverse() result(seq) !! Swap foreground and background. character(len=:), allocatable :: seq seq = CSI//"7m" end function ansi_reverse