このシーケンスをリストとして生成する機能をHaskellに記述してください
1、4、13、40、121、364の数列を生成できるHaskell関数を紹介しよう：

```
sequence :: [Integer]
sequence = 1 : next sequence
  where
    next (x:xs) = (3 * x + 1) : next xs
```

空のリストを渡してこの関数を呼び出すと、数列を含むリストが返される。