34e49164 C |
1 | open Oassoc |
2 | |
3 | class virtual ['a] osequence = |
4 | object(o: 'o) |
5 | (* inherit ['a] ocollection *) |
6 | inherit [int, 'a] oassoc |
7 | |
8 | method virtual nth: int -> 'a |
9 | method virtual first: 'a |
10 | method virtual last: 'a |
11 | (* head tail push pop top cons snoc *) |
12 | end |
13 | |