何回やってもできないYO!
---

import System
main = do args <- getArgs
quad_from (10, 20 ,30, 40) $ read (head args) :: Int
quad_from (a1, a2, a3, a4) n = case n of
　　　　　　　　　　　　　　　　1 -> a1
　　　　　　　　　　　　　　　　2 -> a2
　　　　　　　　　　　　　　　　3 -> a3
　　　　　　　　　　　　　　　　4 -> a4
　　　　　　　　　　　　　　　　_ -> "Nothing"
----Error内容----
caseoftest.hs:4:10:
　　Couldn't match expected type `Int' against inferred type `[Char]'
　　In the expression:
　　　　　　(quad_from (10, 20, 30, 40)) $ (read (head args))
　　In the expression:
　　　　　　(quad_from (10, 20, 30, 40)) $ (read (head args)) :: Int
　　In the expression:
　　　　do args <- getArgs
　　　　　　(quad_from (10, 20, 30, 40)) $ (read (head args)) :: Int