smlnj - number_in_month 演習 (SML で「Syntax Error at EOF」が表示される理由がわかりません)

Question

日付のリストと月を取り、その月を含む日付の数を返すプログラムを作成することになっています。構文エラーが発生し続けますが、その理由がわかりません。

fun number_in_month (dates : int list, month : int) =   
    let val tally = 0
    in
        let fun tally_counter(tally_dates : int list)=      
                if (tally_dates[1]) = month 
                then (
                     tally = tally + 1
                     tally_counter(tl tally_dates)
                     )
                else if null (hd tally_dates)
                     then tally
        in 
            tally_counter(dates)
        end