%include poly.fmt

%format <| = "\lhd "

> options  ::  [String] -> ([Class],[String])
> options  =   foldr (<|) ([],[])
>   where   "-align"     <| (ds,s:  as) = (Dir Align    s :  ds,     as)
>           ('-':'i':s)  <| (ds,    as) = (Dir Include  s :  ds,     as)
>           ('-':'l':s)  <| (ds,    as) = (Dir Let      s :  ds,     as)
>           s            <| (ds,    as) = (                  ds,s :  as)