module Main where

import Zero ( total )
import Zero.Color ( clr )
import System.Exit

main :: IO ()
main = do
   putStrLn $ clr maxBound "N"
   mapM_ putStr $ zipWith clr total $ repeat "N"
   exitWith ExitSuccess