1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-14 17:32:00 +03:00
juvix/tests/positive/Ape.juvix

74 lines
2.3 KiB
Plaintext
Raw Normal View History

module Ape;
axiom String : Type;
infixl 7 *;
axiom * : String → String → String;
infixr 3 -;
axiom - : String → String → String;
infixl 1 >>;
axiom >> : String → String → String;
infixl 6 +;
axiom + : String → String → String;
infixr 6 ++;
axiom ++ : String → String → String;
axiom f : String → String;
x : String;
x := "" + ("" ++ "");
axiom wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww : String → String;
nesting : String;
nesting := wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
(wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
("" + "" + "" + "" + ""))))))))))))))))))));
t : String;
t := "Hellooooooooo"
>> "Hellooooooooo"
>> "Hellooooooooo"
>> "Hellooooooooo"
>> "Hellooooooooo"
>> "Hellooooooooo"
>> "Hellooooooooo"
>> "Hellooooooooo"
+ "Hellooooooooo"
+ "Hellooooooooo"
+ ("Hellooooooooo"
++ "Hellooooooooo"
++ "Hellooooooooo"
++ "Hellooooooooo"
++ "Hellooooooooo"
++ "Hellooooooooo")
+ "Hellooooooooo"
+ "Hellooooooooo"
* "Hellooooooooo"
* "Hellooooooooo"
* "Hellooooooooo"
* "Hellooooooooo"
* "Hellooooooooo"
* "Hellooooooooo";
end;