colours :: [Color]
colours = cycle [Red, Green, Blue, Magenta, Yellow, Cyan]
colours :: [Color]
colours = cycle [Red, Green, Blue, Magenta, Yellow, Cyan]
colours = cycle [Red, Green, Blue, Magenta, Yellow, Cyan]