チョコ貰った

choco.fs

let give f x = f x

let me = printfn "%s"

let chocolate = "\n                                     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\n    +---------+ +---------+ +--------X+                                    X\n    | +-----+ | | +-----+ | | +-----+X|                                    X\n    | |     | | | |     | | | |     |XX                                    X\n    | +-----+ | | +-----+ | | +-----+ X                                    X\n    +---------+ +---------+ +---------+XX                                  X\n    +---------+ +---------+ +---------+ X                                  X\n    | +-----+ | | +-----+ | | +-----+ XXX                                  X\n    | |     | | | |     | | | |     |XX                                    X\n    | +-----+ | | +-----+ | | +-----+X|                                    X\n    +---------+ +---------+ +-------|X+                                    X\n    +---------+ +---------+ +---------XX+                                  X\n    | +-----+ | | +-----+ | | +-----+ |XX                                  X\n    | |     | | | |     | | | |     | |XX                                  X\n    | +-----+ | | +-----+ | | +-----+ XX|                                  X\n    +---------+ +---------+ +-------XXX                                    X\n                                    X  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\n                                    XX\n    "

give me chocolate

もらえた