(Lprim (Pset_global (qualifiedident "fstring" "make_string")) ((Lfunction (Lfunction (Lshared (Llet ((Lprim (Pccall create_string 1) ((Lvar 1) )) ) (Lshared (Lsequence (Lprim (Pccall fill_string 4) ((Lvar 0) (Lconst (SCatom 0)) (Lvar 2) (Lvar 1) )) (Lvar 0)) -1)) -1))) ))
(Lprim (Pset_global (qualifiedident "fstring" "^")) ((Lfunction (Lfunction (Lshared (Llet ((Lprim Pstringlength ((Lvar 1) )) (Lprim Pstringlength ((Lvar 1) )) ) (Lshared (Llet ((Lprim (Pccall create_string 1) ((Lprim Paddint ((Lvar 1) (Lvar 0) )) )) ) (Lshared (Lsequence (Lprim (Pccall blit_string 5) ((Lvar 4) (Lconst (SCatom 0)) (Lvar 0) (Lconst (SCatom 0)) (Lvar 2) )) (Lsequence (Lprim (Pccall blit_string 5) ((Lvar 3) (Lconst (SCatom 0)) (Lvar 0) (Lvar 2) (Lvar 1) )) (Lvar 0))) -1)) -1)) -1))) ))
(Lprim (Pset_global (qualifiedident "fstring" "sub_string")) ((Lfunction (Lfunction (Lfunction (Lshared (Llet ((Lprim (Pccall create_string 1) ((Lvar 0) )) ) (Lshared (Lsequence (Lprim (Pccall blit_string 5) ((Lvar 3) (Lvar 2) (Lvar 0) (Lconst (SCatom 0)) (Lvar 1) )) (Lvar 0)) -1)) -1)))) ))
(Lprim (Pset_global (qualifiedident "fstring" "replace_string")) ((Lfunction (Lfunction (Lfunction (Lshared (Lprim (Pccall blit_string 5) ((Lvar 1) (Lconst (SCatom 0)) (Lvar 2) (Lvar 0) (Lprim Pstringlength ((Lvar 1) )) )) -1)))) ))
(Lprim (Pset_global (qualifiedident "fstring" "string_for_read")) ((Lfunction (Lshared (Llet ((Lprim (Pmakeblock (ConstrRegular (qualifiedident "ref" "ref") 0 1)) ((Lconst (SCatom 0)) )) ) (Lshared (Lsequence (Lfor (Lconst (SCatom 0)) (Lprim Psubint ((Lprim Pstringlength ((Lvar 2) )) (Lconst (SCatom 1)) )) #t (Lprim (Psetfield 0) ((Lvar 2) (Lprim Paddint ((Lprim (Pfield 0) ((Lvar 2) )) (Llet ((Lprim Pgetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 1) )) )) ) (Lstatichandle (Lcond (Lvar 0) ((#a034 (Lshared (Lconst (SCatom 2)) -1)) (#a092 (Lshared (Lconst (SCatom 2)) -1)) (#\Newline (Lshared (Lconst (SCatom 2)) -1)) (#\tab (Lshared (Lconst (SCatom 2)) -1)) )) (Lshared (Lifthenelse (Lprim (Pccall is_printable 1) ((Lvar 0) )) (Lconst (SCatom 1)) (Lconst (SCatom 4))) -1))) )) ))) (Lifthenelse (Lprim (Ptest Peq) ((Lprim (Pfield 0) ((Lvar 0) )) (Lprim Pstringlength ((Lvar 1) )) )) (Lvar 1) (Llet ((Lprim (Pccall create_string 1) ((Lprim (Pfield 0) ((Lvar 0) )) )) ) (Lshared (Lsequence (Lprim (Psetfield 0) ((Lvar 1) (Lconst (SCatom 0)) )) (Lsequence (Lfor (Lconst (SCatom 0)) (Lprim Psubint ((Lprim Pstringlength ((Lvar 3) )) (Lconst (SCatom 1)) )) #t (Lsequence (Llet ((Lprim Pgetstringchar ((Lvar 4) (Lprim (Pfield 0) ((Lvar 1) )) )) ) (Lstatichandle (Lcond (Lvar 0) ((#a034 (Lshared (Lsequence (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a092)) )) (Lsequence (Lprim Pincr ((Lvar 4) )) (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a034)) )))) -1)) (#a092 (Lshared (Lsequence (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a092)) )) (Lsequence (Lprim Pincr ((Lvar 4) )) (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a092)) )))) -1)) (#\Newline (Lshared (Lsequence (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a092)) )) (Lsequence (Lprim Pincr ((Lvar 4) )) (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a110)) )))) -1)) (#\tab (Lshared (Lsequence (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a092)) )) (Lsequence (Lprim Pincr ((Lvar 4) )) (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lconst (SCatom #a116)) )))) -1)) )) (Lshared (Lifthenelse (Lprim (Pccall is_printable 1) ((Lvar 0) )) (Lprim Psetstringchar ((Lvar 3) (Lprim (Pfield 0) ((Lvar 4) )) (Lvar 0) )) (Llet ((Lprim (Pccall int_of_char 1) ((Lvar 0) )) ) (Lshared (Lsequence (Lprim Psetstringchar ((Lvar 4) (Lprim (Pfield 0) ((Lvar 5) )) (Lconst (SCatom #a092)) )) (Lsequence (Lprim Pincr ((Lvar 5) )) (Lsequence (Lprim Psetstringchar ((Lvar 4) (Lprim (Pfield 0) ((Lvar 5) )) (Lprim (Pccall char_of_int 1) ((Lprim Paddint ((Lconst (SCatom 48)) (Lprim Pdivint ((Lvar 0) (Lconst (SCatom 100)) )) )) )) )) (Lsequence (Lprim Pincr ((Lvar 5) )) (Lsequence (Lprim Psetstringchar ((Lvar 4) (Lprim (Pfield 0) ((Lvar 5) )) (Lprim (Pccall char_of_int 1) ((Lprim Paddint ((Lconst (SCatom 48)) (Lprim Pmodint ((Lprim Pdivint ((Lvar 0) (Lconst (SCatom 10)) )) (Lconst (SCatom 10)) )) )) )) )) (Lsequence (Lprim Pincr ((Lvar 5) )) (Lprim Psetstringchar ((Lvar 4) (Lprim (Pfield 0) ((Lvar 5) )) (Lprim (Pccall char_of_int 1) ((Lprim Paddint ((Lconst (SCatom 48)) (Lprim Pmodint ((Lvar 0) (Lconst (SCatom 10)) )) )) )) )))))))) -1))) -1))) (Lprim Pincr ((Lvar 3) )))) (Lvar 0))) -1)))) -1)) -1)) ))
(import fchar "fchar.zi")
(import ref "ref.zi")
(import eq "eq.zi")
(import int "int.zi")
