in newFrame', changed from foldl to foldr' to keep the order.
added fp to Frame.
debug: newLevel should set name to the new Level's name.
added unique number to Level (in order to compare).
TL.simpleVar just written (not tested at all).