open System


let rec getDiceCases n s (o:string) =

    match n, s with

    |0, _ |_ when s <= 0 -> ()

    |1, _ when s <= 6 -> Console.WriteLine(o + s.ToString())

    |_ -> 

        let nn = n - 1

        getDiceCases nn (s-1) (o + "1")

        getDiceCases nn (s-2) (o + "2")

        getDiceCases nn (s-3) (o + "3")

        getDiceCases nn (s-4) (o + "4")

        getDiceCases nn (s-5) (o + "5")

        getDiceCases nn (s-6) (o + "6")

    

[<EntryPoint>]

let main argv = 

    Console.Write "Input n: "

    let n = Int32.Parse(Console.ReadLine())

    Console.Write "Input s: "

    let s = Int32.Parse(Console.ReadLine())

    getDiceCases n s ""

    0



for문 쓸려면 리스트써야되서 못썻다...



for문쓰면 이렇게



open System


let rec getDiceCases n s (o:string) =

    match n, s with

    |0, _ |_ when s <= 0 -> ()

    |1, _ when s <= 6 -> Console.WriteLine(o + s.ToString())

    |_ -> 

        let nn = n - 1

        for i in [1..6] do

            getDiceCases nn (s-i) (o + i.ToString())

    


[<EntryPoint>]

let main argv = 

    Console.Write "Input n: "

    let n = Int32.Parse(Console.ReadLine())

    Console.Write "Input s: "

    let s = Int32.Parse(Console.ReadLine())

    getDiceCases n s ""

    0