変数を新たに宣言せずに1から100までの整数の和を表示するプログラムを作れ

test.hs

-- ./test 100
module Main where
import System

main = do
    max <- getArgs
    print (test (read (head max)::Integer))

test :: Integer -> Integer
test 1 = 1
test n = n + test (n - 1)