USING: alien.c-types assocs effects grouping kernel sequences
splitting ;

IN: alien.fortran

: parse-arglist ( parameters return -- types effect )
[
2 group
[ unzip [ "," ?tail drop ] map ] [
[ first "!" head? ] filter
[ second "," ?tail drop "'" append ] map
] bi
] [ [ ] [ prefix ] if-void ] bi* <effect> ;