wrist

-- 問題 https://gist.github.com/fujiyan/483893d875ff7e350ef1
-- 他の方々の解答
-- https://gist.github.com/iseebi/8f3f7388313c1a6005f9
-- https://gist.github.com/fujiyan/5378cb1f0f82c98a3775

data Attack = Normal | Critical | Gira | Begirama deriving Show

data Warrior = Warrior {
	     attack :: Int
	     } deriving Show