BF to Arturo transpiler

bf2.art

memSize: 100

interpret: function [code][
    m: map 0..memSize []->0
    p: 0
    continue: true
    replace 'code "," "set m p input ------ "
    replace 'code ">" "inc 'p "
    replace 'code "<" "dec 'p "
    replace 'code "+" "set m p (get m p)+1 "
    replace 'code "-" "set m p (get m p)-1 "
    replace 'code "[" "while {continue}{ "
    replace 'code "]" "if (get m p)=0 {continue:false}} "
    replace 'code "." "prints to :char (get m p) "
    replace 'code "{" "["
    replace 'code "}" "]"
    
    do.import code
    print ""
]

interpret read arg\0