AB
Size: a a a

AB
АП
\type Parenthesis = {
\object prefix : String = “(”;
\object postfix : String = “)”;
\struct : String -> String $ expr = prefix + expr + postfix;
};
\object p : Parenthesis = “MyString”;
print p;
В итоге, на экран будет выведено (MyString).Parenthesisэто такой тип, что если переменной такого типа присваивается строковое значение, то оно автоматически обрамляется скобками.
=.K
АП
K
addParens txt = "(" <> txt <> ")"
main = print (addParens "MyString")АП
\type Parenthesis = {
\struct : String -> String $ expr = "(" + expr + ")";
};
\object p : Parenthesis = “MyString”;
print p;K
АП
ПС
K
ПС
ПС
ПС
K
K
ПС
АП
ПС