(let('display,/)(port-fold(^(c\)(if(#[/\\]c)(if'c,\)(guard`('c\)(+(if'(~"  :   $   * "(mod\ 12))\)1)))),2 read-char))