beginchar(oct"056",.8em#,cap#,0dth#); "Psifiston"; picture UHFICTON; path p[]; z0 = (0,.5w); z2 = (7w/16,6h/25); z3 = (15w/16,7h/10); z8 = (w/40,.55h); z6 = (6w/16,2.7h/10); z4 = (13w/16,7h/10); z5 = (5.7w/8,3h/5); p1 = flex(z0,z2,z3); p2 = flex(z5,z6,z8); p3 = z3..z4..z5; p4 = z8--z0; fill p1 & p3 & p2 & p4 & cycle; UHFICTON = currentpicture; endchar;