2021-04-01 04:17:37 +03:00
|
|
|
^?
|
|
|
|
|
|%
|
|
|
|
|
+$ life @ud
|
|
|
|
|
+$ rift @ud
|
|
|
|
|
+$ pass @
|
|
|
|
|
++ unit |$ [item] (^unit item)
|
|
|
|
|
++ list |$ [item] (^list item)
|
|
|
|
|
++ lest |$ [item] (^lest item)
|
|
|
|
|
++ map |$ [key value] (^map key value)
|
|
|
|
|
++ jug |$ [key value] (^jug key value)
|
|
|
|
|
+$ ship @p
|
|
|
|
|
+$ bite ^bite
|
|
|
|
|
+$ octs [p=@ud q=@]
|
|
|
|
|
++ ruth |=([a=* b=*] ?>(?=(@ b) b))
|
2021-04-01 06:28:13 +03:00
|
|
|
++ dec ^dec
|
2021-04-01 04:17:37 +03:00
|
|
|
++ add ^add
|
|
|
|
|
++ bex ^bex
|
|
|
|
|
++ mul ^mul
|
|
|
|
|
++ end ^end
|
|
|
|
|
++ rsh ^rsh
|
|
|
|
|
++ lth ^lth
|
|
|
|
|
++ gth ^gth
|
|
|
|
|
++ swp ^swp
|
|
|
|
|
++ cat ^cat
|
2021-04-01 10:05:12 +03:00
|
|
|
++ can ^can
|
|
|
|
|
++ rep ^rep
|
2021-04-01 04:17:37 +03:00
|
|
|
++ rip ^rip
|
|
|
|
|
++ turn ^turn
|
2021-04-01 10:05:12 +03:00
|
|
|
++ levy ^levy
|
2021-04-01 04:17:37 +03:00
|
|
|
++ welp ^welp
|
2021-04-01 04:55:49 +03:00
|
|
|
++ flop ^flop
|
2021-04-01 10:05:12 +03:00
|
|
|
++ lent ^lent
|
2021-04-01 04:17:37 +03:00
|
|
|
++ by ^by
|
|
|
|
|
++ ju ^ju
|
2021-04-01 10:05:12 +03:00
|
|
|
::
|
|
|
|
|
++ dad
|
|
|
|
|
|= [=bite a=@ b=@]
|
|
|
|
|
(add a (lsh bite b))
|
2021-04-01 04:17:37 +03:00
|
|
|
:: TODO: delete
|
|
|
|
|
::
|
|
|
|
|
++ crypto ^crypto
|
|
|
|
|
++ html ^html
|
2021-04-01 10:05:12 +03:00
|
|
|
++ cain ^cain
|
|
|
|
|
++ onan ^onan
|
|
|
|
|
++ abel ^abel
|
2021-04-01 04:17:37 +03:00
|
|
|
--
|
