let a,b="  .....|","|
 #####|";;print_string[|"
    "^a^"
   "^a^"|
  "^a^"||
 "^a^"|||
"^a^"|||"^b^"|||"^b^"||"^b^"|"^b^b;"
   ...|
  ...||
 ###||| 
 ###|| ..|
 ###| ..||
     ..||
    ##||
    ##|"|].(input_byte stdin-49)