let n,a,b,c,t,s,u,x=" "," | | "," _ "," |_|","_|_|_|_|_|_|_"," ","_____________","| | | | "let d,e,f,z,w="|"^t^"| "," "^t^" ","| | "^s^a,s^s^s^s^s^x," "^s^s^s^" _ "^s^s^s^c;;print_string[|" "^u^"__________ "^u^" | "^u^"______ | | _________ | "^f^"| | "^x^s^a^"| | ___ "^x^s^a^"| | |_ |_ "^x^s^a^"| | |___| "^x^" ___ "^a^"| |_________"^x^" | _| "^a^"|"^u^"| | | | | "^a^" _ _ _ _ | | |_| "^a^d^f^e^f^d^f^e^f^d^f^e^f^d^f^e^f^d^"| |_"^s^a^e^"| | _ | | "^d^"| | _ | |_ ___| | "^e^"| |_| |_ |_ | | | "^d^"|"^n^"|___| |_| | "^e^"|"^u^"__________| |_| |_| |_| |_|";" "^u^u^u^u^u^" | "^u^u^u^u^"_________ | | | "^z^z^z^s^" _________"^s^s^n^" "^x^s^" | _____ |"^s^s^n^x^" ___ "^a^" | |_ "^s^s^" "^x^" |_ | "^a^" |_ | _______ "^s^n^x^" | |_ "^a^" | |_| ___ |"^n^s^x^" |_ |_______| | |_____| | | _"^s^x^" |___________| "^s^"| |___ |_|"^n^" | | | |"^s^s^s^" |_____| "^s^x^z^z^z^s^s^s^s^s^"| | | |"^u^u^u^u^"_________| | |"^u^u^u^u^u^"|";" "^u^u^u^u^u^u^"_______ |__"^u^u^u^" "^u^u^u^"__| "^s^s^" _____"^c^" _____ "^s^s^" | _ | _ | _ | "^s^s^a^"| | |_| | |_| | "^s^s^a^"| | _ | _ | "^s^s^" | |_| | |_| | |_| | _"^s^s^" |_____| _ |_____| | | "^s^s^s^" |_| | | "^s^s^s^" _ |_| "^s^s^s^" |_|"^w^w^w^w^w^s^s^s^" _ "^s^s^s^b^s^s^s^" | | "^s^s^s^c^s^s^s^" | | "^s^s^s^b^s^s^s^" |_| "^s^s^s^c^w^" _ "^s^s^s^b^" "^c^" "^s^s^s^c^" "^s^s^s^" _ "^u^u^u^"__| |__"^u^u^u^" |"^u^u^u^u^u^u^"_______|"|].(String.length(read_line())/21)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).