simple bugfixes

examples/simple/Simple.hs

@@ -1,4 +1,4 @@
-module Simple where
+module Main where
 
 import Control.Lens
 

examples/state-machine/StateMachine.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE FlexibleContexts, KindSignatures #-}
 
-module StateMachine where
+module Main where
 
 import Control.Monad.IO.Class
 

lib/Echidna/Exec.hs

@@ -85,7 +85,8 @@ ePropertySeq :: VM             -- Initial state
              -> Property
 ePropertySeq v ts p n = property $ executeSequential (VMState v) =<<
   forAllWith printCallSeq (sequential (linear 1 n) (VMState v) [eCommand ts p]) where
-    printCallSeq = ("Call sequence: " ++) . intercalate "\n               " . map showCall . sequentialActions
+    printCallSeq = ("Call sequence: " ++) . intercalate "\n               " .
+      map showCall . reverse . sequentialActions
     showCall (Action i _ _ _ _ _) = show i ++ ";"
 
 -- Should work, but missing instance MonadBaseControl b m => MonadBaseControl b (PropertyT m)

solidity/cli.sol

@@ -1,15 +1,19 @@
 pragma solidity ^0.4.16;
 
 contract Test {
-  bool private flag=true;
+  bool private flag0=true;
+  bool private flag1=true;
 
-  function set(int val) returns (bool){
-    if (val % 100 == 0) {flag = false;}
+  function set0(int val) returns (bool){
+    if (val % 10 == 0) {flag0 = false;}
+  }
+  function set1(int val) returns (bool){
+    if (val % 10 == 0 && flag0) {flag1 = false;}
   }
   function echidna_alwaystrue() returns (bool){
     return(true);
   }
   function echidna_sometimesfalse() returns (bool){
-    return(flag);
+    return(flag0 || flag1);
   }
 }