#Haskell(Parsec) - 262

    import Text.Parsec
    c=words"><> >><> ><>> ><<<> <>< <><< <<>< <>>>< ,<..>,"
    p c d=choice[eof>>return[],lookAhead(choice$map(try.string)d)>>=(\s->try(string s>>p c c>>=(\ss->return$s:ss))<|>p c(filter(/=s)c))]
    main=interact$either show unwords.runParser(p c c)()""