- Pharo-dev - lists.pharo.org

Reflecting on data (literal) object syntax
by Stephane Ducasse July 5, 2017

July 5, 2017

Hi recently I started to read a book on machine learning and they manipulate dictionary of dictionary. (So I started my own implementation and I will switch to DataFrame). Now it occurred to me that when we program complex objects we do not need a compact literal syntax for our objects. But when we manipulate data objects it is super handy. I ended up doing a lot of self new addRow: 'Claudia Puig' withTaggedValues: {('Snakes on a Plane' -> 3.5). ('Just My Luck' -> 3.0). ('The Night Listener' -> 4.5). ('Superman Returns' -> 4.0). ('You, Me and Dupree' -> 2.5)}. And I was not in the mood to write a class for the taggedValues and writing a class would not have really help me. Now we also have STON but STON is not yet part of the language grammar. So we have to have an explicit conversion call. STON fromString: 'Point[10,20]' We were brainstorming with marcus and we could have a first nice extension: { 'x' -> 10 .'y' -> 20 } asObjectOf: #Point. >>> 10@20 Now in addition I think that there is a value in having an object literal syntax. I pasted the old mail of igor on object literals because I like the idea since it does not add any change in the parser. Do you remember what were the problem raised by this solution (beside the fact that it had too many # and the order was like in ston not explicit). I would love to have another pass on the idea of Igor. Stef ---------- Forwarded message ---------- From: Igor Stasenko <siguctua(a)gmail.com> Date: Fri, Oct 19, 2012 at 1:09 PM Subject: [Pharo-project] Yet another Notation format: Object literals To: Pharo Development <Pharo-project(a)lists.gforge.inria.fr> Hi, as i promised before, here the simple smalltalk-based literal format. It based on smalltalk syntax, and so, unlike JSON, it doesn't needs to have separate parser (a normal smalltalk parser used for that). The idea is quite simple: you can tell any object to represent itself as an 'object literal' , for example: (1@3) asObjectLiteral --> #(#Point 1 3) { 1@2. 3@4. true. false . nil } asObjectLiteral -> #(#Array #(#Point 1 2) #(#Point 3 4) true false nil) (Dictionary newFromPairs: { 1->#(1 2 3) . 'foo' -> 'bar' }) asObjectLiteral -> #(#Dictionary 1 #(#Array 1 2 3) 'foo' 'bar') Next thing, you can 'pretty-print' it (kinda): #(#Dictionary 1 #(#Array 1 2 3) 'foo' 'bar') printObjectLiteral '#(#Dictionary 1 (#Array 1 2 3) ''foo'' ''bar'')' and sure thing, you can do reverse conversion: '#(#Dictionary 1 (#Array 1 2 3) ''foo'' ''bar'')' parseAsObjectLiteral a Dictionary('foo'->'bar' 1->#(1 2 3) ) Initially, i thought that it could be generic (by implementing default Object>>#asObjectLiteral), but then after discussing it with others, we decided to leave Object>>#asObjectLiteral to be a subclass responsibility. So, potentially the format allows to represent any object(s) as literals, except from circular referencing objects, of course. The implementation is fairly simple, as you may guess and contains no new classes, but just extension methods here and there. Take it with grain and salt, since it is just a small proof of concept. (And if doing it for real it may need some changes etc). Since i am far from areas right now, where it can be used, i don't want to pursue it further or advocate if this is the right way to do things. Neither i having a public repository for this project.. So, if there anyone who willing to pick it up and pursue the idea further, please feel free to do so and make a public repository for project.

8 21

[ANN] Pharo community addon for world menu
by Torsten Bergmann July 4, 2017

July 4, 2017

Hi, I added a small utility called "Community" to the catalog that allows you to quickly access/browse the most prominent Pharo pages (Homepage, Discord, Mailinglist Archive, CI Server, Books page, Association, Consortium, STHub) right from the world menu. Also in Spotter. Example: ======== Load Community from Pharo catalog. As the menu entries are mirrored also in Spotter you can easily open Spotter, key in "Discord" hit enter and the local web browser should open the Pharo chat. Attached is a screenshot. Maybe this is useful for others too. Have fun T.

2 1

[pharo-project/pharo-core] 9a3d58: 60506
by GitHub July 4, 2017

July 4, 2017

Branch: refs/heads/6.0 Home: https://github.com/pharo-project/pharo-core Commit: 9a3d58e0ee84d733c08f8447b05a946939337a5d https://github.com/pharo-project/pharo-core/commit/9a3d58e0ee84d733c08f8447… Author: Jenkins Build Server <board(a)pharo-project.org> Date: 2017-07-04 (Tue, 04 Jul 2017) Changed paths: M Collections-Streams.package/Stream.class/instance/accessing/next_put_.st A Collections-Streams.package/WriteStream.class/instance/accessing/crlf.st R Collections-Streams.package/WriteStream.class/instance/character writing/crlf.st M Collections-Streams.package/WriteStream.class/instance/character writing/crtab.st M Collections-Streams.package/WriteStream.class/instance/character writing/crtab_.st M Collections-Streams.package/WriteStream.class/instance/character writing/ensureNoSpace.st M Collections-Streams.package/WriteStream.class/instance/character writing/space_.st M Collections-Streams.package/WriteStream.class/instance/character writing/tab_.st A Collections-Tests.package/CharacterTest.class/instance/tests/testIsSeparator.st A Collections-Tests.package/WriteStreamTest.class/instance/tests/testEnsureNoSpace.st M Kernel.package/Character.class/instance/testing/isSeparator.st R ScriptLoader60.package/ScriptLoader.class/instance/pharo - scripts/script60505.st A ScriptLoader60.package/ScriptLoader.class/instance/pharo - scripts/script60506.st R ScriptLoader60.package/ScriptLoader.class/instance/pharo - updates/update60505.st A ScriptLoader60.package/ScriptLoader.class/instance/pharo - updates/update60506.st M ScriptLoader60.package/ScriptLoader.class/instance/public/commentForCurrentUpdate.st M Text-Core.package/Text.class/class/instance creation/fromString_.st Log Message: ----------- 60506 20092 Improve speed of WriteStream>>tab: https://pharo.fogbugz.com/f/cases/20092 20088 Improve speed of Character>>isSeparator in when the separator is not a space https://pharo.fogbugz.com/f/cases/20088 20204 Text class>>#fromString https://pharo.fogbugz.com/f/cases/20204 http://files.pharo.org/image/60/60506.zip

1 0

[pharo-project/pharo-core]
by GitHub July 4, 2017

July 4, 2017

Branch: refs/tags/60506 Home: https://github.com/pharo-project/pharo-core

1 0

Re: [Pharo-dev] Reflecting on data (literal) object syntax - porting PDF
by Christian Haider July 4, 2017

July 4, 2017

Hi Ben, at ESUG I will hopefully show the new version of the library with a new PDF type implementation which allows the classes to be freely (re)named. This should make a port a lot easier. Currently I am working on the port for Gemstone. If that works, it could be more than half the way towards a Pharo/Squeak version. cheers Von: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org] Im Auftrag von Ben Coman Gesendet: Montag, 3. Juli 2017 18:54 An: Pharo Development List <pharo-dev(a)lists.pharo.org> Betreff: Re: [Pharo-dev] Reflecting on data (literal) object syntax Thanks Christian for the open release of pdf4smalltalk. Sorry I aborted the two times I started to port it to Pharo. The task of dealing with both file format and namespace differences to synchronise with VW was too big for me. Now with Iceberg, if VisualWorks might work with git that would knock down one barrier and I might have another go. On Mon, Jul 3, 2017 at 5:45 PM, Christian Haider <christian.haider(a)smalltalked-visuals.com <mailto:christian.haider@smalltalked-visuals.com> > wrote: I did Von: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org <mailto:pharo-dev-bounces@lists.pharo.org> ] Im Auftrag von Serge Stinckwich Gesendet: Montag, 3. Juli 2017 11:40 An: Pharo Development List <pharo-dev(a)lists.pharo.org <mailto:pharo-dev@lists.pharo.org> > Betreff: Re: [Pharo-dev] Reflecting on data (literal) object syntax Hi Christian, interesting ! Maybe you can release your software with an MIT licence ? Regards, On Mon, Jul 3, 2017 at 10:06 AM, Christian Haider <christian.haider(a)smalltalked-visuals.com <mailto:christian.haider@smalltalked-visuals.com> > wrote: I solved this with Values[1] for VW and I am very happy with it (using it intensively/routinely). Your example would look like: (PointCollection points: (Array with: (Point x: 10 y: 20) with: (Point x: 5 y: 8) )) And I remember you saying pdf4smalltalk relied heavily on this, so having Values integrated (if it was broadly useful) would also be a minor step in porting pdf4smalltalk to Pharo. cheers -ben As you see, it is the same except that lots of noise is gone. Drawbacks: only literal objects (like Values) are allowed; i.e. no cyclic structures (same with JSON etc.) and the order of arguments is fixed unlike JSON (but you can add constructors for every permutation :)). I think this is very clear and direct (no magic from parsers etc.). I like it most for configurations (see everything at a glance) and interface data. Best, Christian [1] https://wiki.pdftalk.de/doku.php?id=complexvalues Von: Pharo-dev [mailto:pharo-dev-bounces@lists.pharo.org <mailto:pharo-dev-bounces@lists.pharo.org> ] Im Auftrag von Norbert Hartl Gesendet: Montag, 3. Juli 2017 10:28 An: Pharo Dev <pharo-dev(a)lists.pharo.org <mailto:pharo-dev@lists.pharo.org> > Betreff: Re: [Pharo-dev] Reflecting on data (literal) object syntax Eliot, Am 01.07.2017 um 20:22 schrieb Eliot Miranda <eliot.miranda(a)gmail.com <mailto:eliot.miranda@gmail.com> >: Hi Norbert, On Jul 1, 2017, at 7:36 AM, Norbert Hartl <norbert(a)hartl.name <mailto:norbert@hartl.name> > wrote: Am 30.06.2017 um 21:14 schrieb Stephane Ducasse <stepharo.self(a)gmail.com <mailto:stepharo.self@gmail.com> >: But what is DataFrame? the new collection done by alesnedr from Lviv. It is really nice but does not solve the problem of the compact syntax. STON fromString: 'Point[10,20]' Same goes for JSON. We were brainstorming with marcus and we could have a first nice extension: { 'x' -> 10 .'y' -> 20 } asObjectOf: #Point. 10@20 Now in addition I think that there is a value in having an object literal syntax. I pasted the old mail of igor on object literals because I like the idea since it does not add any change in the parser. Do you remember what were the problem raised by this solution (beside the fact that it had too many # and the order was like in ston not explicit). I would love to have another pass on the idea of Igor. What I don't like about it is that the object literal exposes the internal implementation of the object. Everything is based on index. So it could suffer the same problem as fuel. When you don't have the exact same code the deserialization fails. Indeed this is why { 'x' -> 10 .'y' -> 20 } asObjectOf: #Point. could be more robust. We could extend the object literal syntax to use association for non collection. I think it is more robust and more explicit. I do not know what are the semantics of detecting something as #Point being a class name. Is it then forbidden to use symbols with uppercase letters? I think something like { #x -> 10 . #y -> 20} asObjectOf: #Point is handling the format with implicit knowledge of type. While the explicit version would be { #Point -> { #x -> 10 . #y -> 20}} asObject And then nested objects are as easy as {#PointCollection -> { #points -> { {#Point -> { #x -> 10 . #y -> 20} }. {#Point -> { #x -> 5 . #y -> 8} } } } asObject The -> messages are just noise and add additional processing for nothing. This is just as effective: { #Point. { #x. 10 . #y. 20}} asObject {#PointCollection. { #points. { {#Point. { #x. 10 . #y. 20} }. {#Point. { #x. 5 . #y. 8} } } } asObject So an object is a pair of a class name and an array of slot specifier pairs, and a slot specifier is a pair of a slot band and a value. And of course that means that many object specs can be literal, which is useful for storing in pragmas etc: #(PointCollection (points ((Point (x 10 y 20)) ((Point (x 5 y 8)))) asObject Agreed. My first impression was it should be something like S-expression which your example is. I was misled by the idea it should be closer to the programming syntax. But a parser does not care if implemented properly, that's right. I like the compactness of that format but still find it a bit hard to read if there is only pairs. As this object literal syntax is meant to be written in code it is important that it reads well even if there are noisy characters. would give a PointCollection of two point objects. My future wish would be that there is an object literal parser that takes all of the information from the format. And then a object literal parser that is aware of slot information. Meaning that the type information can be gathered from the object class instead having it to write in the format. In the PointCollection the slot for points would have the type information #Point attached. The format goes then to { #points -> { { #x -> 10 . #y -> 20 }. { #x -> 5 . #y -> 8 } } which would then the equivalent to something like JSON { "points" : [ { "x" : 10, "y" : 20 }, { "x" : 5, "y" : 8 } ] } What I don't know is how to solve the difference between a dictionary and an collection of associations. That's incidental to the format, internal to the parser. If the parser chooses to build a dictionary as it parses so be it. The point is that the output is as you specify; a tree of objects. The thing to think about is how to introduce labels so that sub objects can be shared in the graph, the naÃ¯ve deepCopy vs deepCopyUsing: issue. I'm not sure this is necessary. It should be a format to easily instantiate a small tree of objects. Making it build a graph instead of a tree makes everything much more complicated. Either we decide that STON can do the full set and in that case it is probably less valuable to have a simple syntax to write in code. Or we need to break pairs rule. In that case an object definition can have an optional third argument which would be the label for the object. The draback is that the label needs to be before the array of slots { :v1 #ValueHolder { 'contents' . { ValueHolder . { 'contents' . @v1 }}}} Or something like this. It would be in theory closer to STON using the @ reference. The difference is that STON has indexed object access and that variant would make it based on labels.Or something like this. Norbert Norbert As a dictionary is both, an array of associations and a key-value store, it works perfectly there. But for other objects I have doubts. Especially is in a lot of contexts you need to have a mapping of internal state to external representation. It can be applied afterwards but I'm not sure that can work all the time. Yes after we should focus on the frequent cases. And may be having a literal syntax for dictionary would be good enough. I will do another version of igor's proposal with associations to see how it feels. my 2 cents, Norbert Stef ---------- Forwarded message ---------- From: Igor Stasenko <siguctua(a)gmail.com <mailto:siguctua@gmail.com> > Date: Fri, Oct 19, 2012 at 1:09 PM Subject: [Pharo-project] Yet another Notation format: Object literals To: Pharo Development <Pharo-project(a)lists.gforge.inria.fr <mailto:Pharo-project@lists.gforge.inria.fr> > Hi, as i promised before, here the simple smalltalk-based literal format. It based on smalltalk syntax, and so, unlike JSON, it doesn't needs to have separate parser (a normal smalltalk parser used for that). The idea is quite simple: you can tell any object to represent itself as an 'object literal' , for example: (1@3) asObjectLiteral --> #(#Point 1 3) { 1@2. 3@4. true. false . nil } asObjectLiteral -> #(#Array #(#Point 1 2) #(#Point 3 4) true false nil) (Dictionary newFromPairs: { 1->#(1 2 3) . 'foo' -> 'bar' }) asObjectLiteral -> #(#Dictionary 1 #(#Array 1 2 3) 'foo' 'bar') Next thing, you can 'pretty-print' it (kinda): #(#Dictionary 1 #(#Array 1 2 3) 'foo' 'bar') printObjectLiteral '#(#Dictionary 1 (#Array 1 2 3) ''foo'' ''bar'')' and sure thing, you can do reverse conversion: '#(#Dictionary 1 (#Array 1 2 3) ''foo'' ''bar'')' parseAsObjectLiteral a Dictionary('foo'->'bar' 1->#(1 2 3) ) Initially, i thought that it could be generic (by implementing default Object>>#asObjectLiteral), but then after discussing it with others, we decided to leave Object>>#asObjectLiteral to be a subclass responsibility. So, potentially the format allows to represent any object(s) as literals, except from circular referencing objects, of course. The implementation is fairly simple, as you may guess and contains no new classes, but just extension methods here and there. Take it with grain and salt, since it is just a small proof of concept. (And if doing it for real it may need some changes etc). Since i am far from areas right now, where it can be used, i don't want to pursue it further or advocate if this is the right way to do things. Neither i having a public repository for this project.. So, if there anyone who willing to pick it up and pursue the idea further, please feel free to do so and make a public repository for project. -- Serge Stinckwich UCN & UMI UMMISCO 209 (IRD/UPMC) Every DSL ends up being Smalltalk http://www.doesnotunderstand.org/

1 0

Esteban's ChangeLog week of 26 June 2017
by estebanlm＠gmail.com July 3, 2017

July 3, 2017

Hello! This is my weekly ChangeLog, from 26 June 2017 to 2 July 2017. You can see it in a better format by going here: http://log.smallworks.eu/web/search?from=26/6/2017&to=2/7/2017 ChangeLog ========= 29 June 2017: ------------- * ... and I spent some time figuring out why windows users have a persistent error about access files. We should always remember the windows path limitations (256) :) Now, the workaround for this is to execute this in command line: ---- git config --system core.longpaths true ---- but of course, this is just a workaround because people using Iceberg could not hava installed a command line git client. I will need to check in the future this :( * I spent some time trying to get [Iceberg version dev-0.5](https://github.com/pharo-vcs/iceberg/tree/dev-0.5) to load properly (yesterday's script is not working). The reason is that +Metacello+ fails to upgrade packages from a baseline. And there is no way (at least that I found) to force the upload. So this is the updated script to test dev-0.5: 1. Download latest vm and image. ---- wget -O- get.pharo.org/64/70+vmLatest | bash wget -O- get.pharo.org/64/70+vmTLatest | bash # for linux systems ---- 2. Execute this on your image ---- #('Iceberg-UI' 'Iceberg-Plugin' 'Iceberg-Metacello-Integration' 'Iceberg-Libgit' 'Iceberg' 'BaselineOfIceberg' 'LibGit-Core' 'BaselineOfLibGit') do: [ :each | each asPackage removeFromSystem ]. Metacello new baseline: 'Iceberg'; repository: 'github://pharo-vcs/iceberg:dev-0.5'; load. ---- This should actually remove old iceberg version then install new one. 28 June 2017: ------------- * Ok, I get the VM to compile correctly with the new libgit2 version, and now +latest vm+ comes with +libgit 0.25.1+ for both 32 and 64 bits versions. I also made some minor fixes to +iceberg dev-0.5+ and it should be ready to test and release. This version incorporates some important changes that will allow us to work with it to make changes to Pharo itself (and that will be noticed on big projects): * it has cherry-pick. * it speeds up sincronization by introducing more precise comparisons instead making a "full scan" * it keeps in sync branch on disk and branch on iceberg (before it was keeping them separately and it was very confusing) To test it, you can execute: ---- wget -O- get.files.org/64/70+vmLatest | bash wget -O- get.files.org/64/70+vmTLatest | bash # on linux systems ---- then you will need to load version +dev-0.5+ : ---- Metacello new baseline: 'Iceberg'; repository: 'github://pharo-vcs/iceberg:dev-0.5'; load. "And you will need to execute this... I will need to update the baseline with this, now that I think :)" LGitExternalStructure allSubclassesDo: #compileFields. ---- * I finished ensuring [iceberg](https://github.com/pharo-vcs/iceberg/tree/dev-0.5) will work on 64 bits. Now, I needed to make some fixes for UFFI, which I put in [case: 20198](https://pharo.fogbugz.com/f/cases/20198) (it is imperative to include this to be able to backport 0.5 into Pharo 6.0). Also, I will need to promote a new VM as stable. I'm not sure I want to backport this into Pharo 6. I know I promised but complications are... more than benefits, I think: You will need a new VM. People will not know that and they will download a P6 image with the older VM and this will cause problems. Maybe is better to move all this to P7? cheers! Esteban

2 1

Fwd: [Vm-dev] multiple crashes on macOS Sierra
by Eliot Miranda July 3, 2017

July 3, 2017

---------- Forwarded message ---------- From: Tobias Pape <Das.Linux(a)gmx.de> Date: Mon, May 29, 2017 at 12:09 AM Subject: Re: [Vm-dev] multiple crashes on macOS Sierra To: John McIntosh <johnmci(a)smalltalkconsulting.com> Cc: Squeak Virtual Machine Development Discussion < vm-dev(a)lists.squeakfoundation.org> Hi John, all > On 28.05.2017, at 22:12, John McIntosh <johnmci(a)smalltalkconsulting.com> wrote: > > At commit point d0e7bfa0f8d99b856d9ac56372f7dacecdd63106 (5/5/17) Tobias added > > > NSEvent* syntheticEvent = AUTORELEASEOBJ([NSEvent keyEventWithType:(isUp ? NSEventTypeKeyUp : NSEventTypeKeyDown) > location:[theEvent locationInWindow] > modifierFlags:(isUp ? oldFlags : [theEvent modifierFlags]) > timestamp:[theEvent timestamp] > windowNumber:[theEvent windowNumber] > context:nil > characters:@"" > charactersIgnoringModifiers:@"" > isARepeat:NO > keyCode:[theEvent keyCode]]); > > in sqSqueakOSXOpenGLView.m at - (void)flagsChanged:(NSEvent *)theEvent That's correct. > > However I believe this is incorrect as the NSEvent class side method is by the old non-arc memory rules implicitly an autoreleased object, so doing the AUTORELEASEOBJ() might cause side effects. https://developer.apple.com/ library/content/documentation/Cocoa/Conceptual/MemoryMgmt/ Articles/mmRules.html > > + (NSEvent *)keyEventWithType:(NSEventType)type location:(NSPoint)location modifierFlags:(NSEventModifierFlags)flags timestamp:(NSTimeInterval)time windowNumber:(NSInteger)wNum context:(NSGraphicsContext *)unusedPassNil characters:(NSString *)keys charactersIgnoringModifiers:(NSString *)ukeys isARepeat:(BOOL)flag keyCode:(unsigned short)code; Well, I have not found a reference to how this relates to autorelease (the Apple docs are becoming increasingly useless these days :() I read this https://developer.apple.com/reference/appkit/nsevent/ 1533943-keyeventwithtype?language=objc and the header /System/Library/Frameworks/AppKit.framework/Headers/NSEvent.h and although autorelase pops up somewhere in the file, it does not somewhere near the declaration. I read through the code an found quite a few AUTORELEASEOBJ() around object creation and (apparently wrongly) thought I would need that here. I now understand that I should only autorelease alloc/inited stuff. So you may be right here. Fixed in 0f07ffbed Best regards -Tobias > > If Tobias can verify and submit a change we can see if that affects the behaviour we have been observing. Note that I"ve not been able to recreate the problem, but in eyeballing the code this leaps out as suspect. [snip]

5 5

[ANN] New stable VM for P7
by Esteban Lorenzano July 3, 2017

July 3, 2017

Hi all, I declared a new stable VM for Pharo 7. This VM includes a new version of libgit2 and because of that *it cannot be used on Pharo 6 (if you are using Iceberg)* Just that :) cheers! Esteban

2 2

git, packages, and package dependencies (also migration from sthub to git)
by Peter Uhnak July 3, 2017

July 3, 2017

Hi, after many-o-hours spent on my git-migration tool ( https://github.com/peteruhnak/git-migration ), I've concluded that the migration cannot be properly done for packages. In mcz/monticello, every package has an independent history and can change independently of each other. In git, this history is merged into a single hierarchy, therefore: * a specific version of package A mandates specific versions of every other package in the project * it is not possible to do a 1:1 migration from mcz to git and keep this flexibility Both ways (mcz and git) have advantages and disadvantages of their own, however as far as I could tell, they are incompatible; so mcz flexibility and some information (history) will be lost during migration. The only solution I see is to either separate every package to a separate git project to keep the flexibility or use git subtree/git module... which are both complications... As a git commit specifies the code in the entire project, even across packages, then I wonder what is the point of expressing package dependencies _within_ the project (whether in BaselineOf or Cargo). Peter

4 6

Baseline question
by Stephane Ducasse July 1, 2017

July 1, 2017

Hi I 'm trying to define a baseline for our project and I defined it as baseline: spec <baseline> spec for: #common do: [ spec baseline: 'SmaCC' with: [ spec repository: 'github://ThierryGoubier/SmaCC'; loads: 'SmaCC-GLR-Runtime' ]; package: 'SmaCC-Solidity' "we could say that SmaccSolidity depends on Smacc-Runtime but I do not know how to say it" ] Now I thought that I could try to load it using the following Metacello new baseline: 'SmaccSolidity'; repository: 'github://RMODINRIA-Blockchain/SmaCC-Solidity'; load. But I get an error telling me that the baseline constructor does not understand load ;( I read the blog of peter https://www.peteruhnak.com/blog/2016/07/25/how-to-use-git-and-github-with-p… and I'm doing exactly the same so I wonder. Stef

3 2