(use goo)

(use demos/archogen/ldraw)
(use demos/archogen/logo)

(dv my-file (new-ldraw-file))

(set-logo-file my-file)

(cl "red")
(rt 90)
(fd 2)
(rt 90)
(fd 3)
(rt 90)
(fd 4)
(rt 90)
(fd 6)
(rt 90)
(fd 4)
(pu)

(fd 4)

(pd)
(cl "green")
(fd 4)
(rt 90)
(fd 6)
(rt 90)
(fd 4)
(rt 90)
(fd 6)
(pu)

(rt 90)
(fd 4)
(fd 4)

(pd)
(cl "blue")
(fd 4)
(rt 90)
(fd 6)
(rt 90)
(fd 4)
(rt 90)
(fd 6)

(save-file my-file "test")