(include "/usr/local/var/mlisp/terminal.lsp")

(print (term-red "red text"))
(print (term-green "green text"))
(print (term-yellow "yellow text"))
(print (term-blue "blue text"))
(print (term-magenta "magenta text"))
(print (term-cyan "cyan text"))
(print (term-white "white text"))
(print (term-bold "bold text"))
(print (term-underline "underline text"))
(print "normal text")

(print (+ (term-red (sprintf "%.2f" (list 1.11))) "  "          
          (term-green (sprintf "%.2f" (list 1.11))) " "
          (term-blue (sprintf "%.2f" (list 1.11))) " "
          (term-yellow (sprintf "%.2f" (list 1.11))) " "
    ))