let a,b="           
","   
               
  ";;print_string[|"     *     
"^a^a^a^a^"*         *";"   *         
  *   *      
 *       *   
*           *
   *       * 
      *   *  
         *"^a;"           *"^b^"*         "^b^"            *
*"^a|].(-Obj.magic(@)mod 3)