>>528
>>510です
では、

mylist :: Int -> [[Int]]
mylist n = take n (chop n [1..])