Quine in Egison

quineEgison.txt

E:\me\Egison\quine>egison quine.egi
main args := let s := "main args := let s := Z in print (S.replace (pack [upperCase 'z']) (show s) s)" in print (S.replace (pack [upperCase 'z']) (show s) s)

E:\me\Egison\quine>type quine.egi
main args := let s := "main args := let s := Z in print (S.replace (pack [upperCase 'z']) (show s) s)" in print (S.replace (pack [upperCase 'z']) (show s) s)


E:\me\Egison\quine>egison quine2.egi
main args :=
  print (S.append s (show s)) where
    s := "main args :=\n  print (S.append s (show s)) where\n    s := "

E:\me\Egison\quine>type quine2.egi
main args :=
  print (S.append s (show s)) where
    s := "main args :=\n  print (S.append s (show s)) where\n    s := "