Awwww! Pritty!

1
2
3
4
5
6
7
8
9
10
11
12
module Data.SnowFlake where

-- I am a beautiful Snowflake! SoooOoOooooOo pritty!

data SnowFlake = Snow | Flake
   deriving (Eq, Ord, Enum)

instance Show SnowFlake where
   show Snow  = "_"
   show Flake = "*"

-- Awwwww!