scsnowman-log.satyh

@require: list

module SnowmanLog : sig

  val log : unit

end = struct

let (^^>) s1 s2 = s1 ^ string-unexplode [10] ^ s2

let concat = List.fold-left (^^>) ` `

let text =
  concat
    [
      #```          ____```#;
      #```  \Y/  ___HHHH```#;
      #```   V  / .   . \```#;
      #```   |  \  ---  /```#;
      #```   Y  :#######: Y```#;
      #```   |\/         \/```#;
      #```   |{           }```#;
      #```   | \_________/```#;
    ]

let log = display-message text

end